├── LICENSE.md ├── README ├── const ├── CURRENT_INPUT.DAT ├── Coarse_Grid │ ├── ARD │ │ ├── Grid_User │ │ ├── Preproc_User │ │ ├── Spectra_User │ │ ├── Time_Prot_S │ │ ├── Time_User │ │ ├── Time_User_S │ │ ├── WAM_User │ │ └── nlnetcdf │ └── JAN │ │ ├── Grid_User │ │ ├── Preproc_User │ │ ├── Spectra_User │ │ ├── Time_User │ │ ├── Time_User_S │ │ ├── WAM_User │ │ └── nlnetcdf ├── Fine_1 │ ├── ARD │ │ ├── Grid_User │ │ ├── Preproc_User │ │ ├── Spectra_User │ │ ├── Time_Prot_S │ │ ├── Time_User │ │ ├── Time_User_S │ │ └── WAM_User │ └── JAN │ │ ├── Grid_User │ │ ├── Preproc_User │ │ ├── Spectra_User │ │ ├── Time_Prot_S │ │ ├── Time_User │ │ ├── Time_User_S │ │ ├── WAM_User │ │ └── nlnetcdf ├── Fine_2 │ ├── ARD │ │ ├── .DS_Store │ │ ├── Grid_User │ │ ├── Preproc_User │ │ ├── Spectra_User │ │ ├── Time_Prot_S │ │ ├── Time_User │ │ ├── Time_User_S │ │ └── WAM_User │ └── JAN │ │ ├── Grid_User │ │ ├── Preproc_User │ │ ├── Spectra_User │ │ ├── Time_Prot_S │ │ ├── Time_User │ │ ├── Time_User_S │ │ ├── WAM_User │ │ └── nlnetcdf ├── ICE_INPUT.DAT ├── OBS19780906090000 ├── OBS19780906120000 ├── READme_all.docx ├── TOPOCAT.DAT ├── TOPO_INPUT.DAT └── WIND_INPUT.DAT ├── dayfiles ├── pgrid_prot_coarse_ARD ├── pgrid_prot_coarse_JAN ├── pnetcdf_prot_coarse_ARD ├── pnetcdf_prot_coarse_JAN ├── pnetcdf_prot_fine1 ├── pnetcdf_prot_fine_2 ├── preproc_prot_coarse_JAN ├── preproc_prot_fine_1 ├── preproc_prot_fine_2 ├── pspec_prot_coarse_ARD ├── pspec_prot_coarse_JAN ├── ptime_S_prot_coarse ├── ptime_S_prot_coarse_ARD ├── ptime_prot_coarse_ARD ├── ptime_prot_coarse_JAN ├── wam_prot_coarse_ARD ├── wam_prot_coarse_JAN ├── wam_prot_fine_1 └── wam_prot_fine_2 ├── documentation ├── MyWave_D1.1.pdf ├── Part-VII-ECMWF-Wave-Model.pdf └── Report_cycle_4.pdf ├── jobs ├── jpgrid ├── jpnetcdf ├── jpreproc ├── jpspec ├── jptime ├── jptime_s └── jwam ├── jobs_ARD ├── jpgrid ├── jpnetcdf ├── jpreproc ├── jpspec ├── jptime ├── jptime_s └── jwam ├── jobs_f1 ├── jpgrid ├── jpnetcdf ├── jpreproc ├── jpspec ├── jptime ├── jptime_s └── jwam ├── jobs_f2 ├── jpgrid ├── jpnetcdf ├── jpreproc ├── jpspec ├── jptime ├── jptime_s └── jwam ├── mk ├── build_pgrid ├── build_pnetcdf ├── build_pre_u10 ├── build_preproc ├── build_pspec ├── build_ptime ├── build_ptime_S ├── build_wam ├── chief.mk ├── create_binaries ├── make_chief ├── make_modules1 ├── make_modules2 ├── make_netcdf ├── make_preproc ├── make_print ├── pgrid.mk ├── pnetcdf.mk ├── preproc.mk ├── pspec.mk ├── ptime.mk └── ptime_S.mk └── src ├── chief ├── chief.f90 ├── initmdl.f90 ├── jafu.f90 ├── print_wam_status.f90 ├── read_boundary_input.f90 ├── read_current_input.f90 ├── read_ice_input.f90 ├── read_topo_input.f90 ├── read_wam_user.f90 ├── read_wind_input.90_swamp ├── read_wind_input.f90 ├── read_wind_input_DWD.f90 ├── readsat.f90 ├── wamodel.f90 └── wavemdl.f90 ├── mod ├── preproc_module.f90 ├── preproc_user_module.f90 ├── wam_assi_module.f90 ├── wam_assi_module.f90_big ├── wam_assi_set_up_module.f90 ├── wam_boundary_module.f90 ├── wam_coldstart_module.f90 ├── wam_coordinate_module.f90 ├── wam_current_module.f90 ├── wam_file_module.f90 ├── wam_flux_module.f90 ├── wam_fre_dir_module.f90 ├── wam_general_module.f90 ├── wam_grid_module.f90 ├── wam_ice_module.f90 ├── wam_initial_module.f90 ├── wam_interface_module.f90 ├── wam_jonswap_module.f90 ├── wam_model_module.f90 ├── wam_mpi_comp_module.f90 ├── wam_mpi_module.f90 ├── wam_nest_module.f90 ├── wam_output_module.f90 ├── wam_output_parameter_module.f90 ├── wam_output_set_up_module.f90 ├── wam_print_module.f90 ├── wam_print_user_module.f90 ├── wam_propagation_module.f90 ├── wam_radiation_module.f90 ├── wam_restart_module.f90 ├── wam_source_module.f90 ├── wam_special_module.f90 ├── wam_swell_module.f90 ├── wam_swell_module_A.f90 ├── wam_tables_module.f90 ├── wam_timopt_module.f90 ├── wam_topo_module.f90 ├── wam_user_module.f90 └── wam_wind_module.f90 ├── preproc ├── preproc.f90 ├── read_preproc_user.f90 ├── read_topography.f90 ├── read_topography_BSH.f90 └── read_topography_ETOPO.F90 └── print ├── make_netcdf.f90 ├── make_netcdf.f90_old ├── print_grid_file.f90 ├── print_spectra_file.f90 ├── print_time.f90 ├── print_time_S.f90 ├── read_grid_file.f90 ├── read_grid_user.f90 ├── read_spectra_file.f90 ├── read_spectra_user.f90 ├── read_time_user.f90 ├── read_time_user_S.f90 └── wam_netcdf_module.f90 /README: -------------------------------------------------------------------------------- 1 | This GIT Repository contains the new designed version of the wave model 2 | WAM Cycle 6 which is written in Fortran95 and MPI. 3 | In case of questions please contact : 4 | Dr. Arno Behrens 5 | Helmholtz-Zentrum Hereon 6 | Max-Planck-Str. 1 7 | 21502 Geesthacht 8 | Germany 9 | email : arno.behrens@hereon.de 10 | phone : +49 4152-871556 11 | -------------------------------------------------------------------------------- /const/CURRENT_INPUT.DAT: -------------------------------------------------------------------------------- 1 | -80.0 80.0 0.0 270.0 90.0 160.0 2 4 0 2 | 19780906060000 3 | 0.000 0.000 0.000 0.000 4 | 0.000 0.000 0.000 0.000 5 | 2.000 2.000 2.000 2.000 6 | 2.000 2.000 2.000 2.000 7 | 19780906120000 8 | 1.000 1.000 1.000 1.000 9 | 1.000 1.000 1.000 1.000 10 | 2.000 2.000 2.000 2.000 11 | 2.000 2.000 2.000 2.000 12 | 19780906180000 13 | 2.000 2.000 2.000 2.000 14 | 2.000 2.000 2.000 2.000 15 | 2.000 2.000 2.000 2.000 16 | 2.000 2.000 2.000 2.000 17 | 19780907000000 18 | 2.000 2.000 2.000 2.000 19 | 2.000 2.000 2.000 2.000 20 | 1.000 1.000 1.000 1.000 21 | 1.000 1.000 1.000 1.000 22 | 19780907060000 23 | 2.000 2.000 2.000 2.000 24 | 2.000 2.000 2.000 2.000 25 | 0.000 0.000 0.000 0.000 26 | 0.000 0.000 0.000 0.000 27 | 19780907120000 28 | 2.000 2.000 2.000 2.000 29 | 2.000 2.000 2.000 2.000 30 | -1.000 -1.000 -1.000 -1.000 31 | -1.000 -1.000 -1.000 -1.000 32 | 19780907180000 33 | 2.000 2.000 2.000 2.000 34 | 2.000 2.000 2.000 2.000 35 | -2.000 -2.000 -2.000 -2.000 36 | -2.000 -2.000 -2.000 -2.000 37 | 19780908000000 38 | 1.000 1.000 1.000 1.000 39 | 1.000 1.000 1.000 1.000 40 | -2.000 -2.000 -2.000 -2.000 41 | -2.000 -2.000 -2.000 -2.000 42 | 19780908060000 43 | 0.000 0.000 0.000 0.000 44 | 0.000 0.000 0.000 0.000 45 | -2.000 -2.000 -2.000 -2.000 46 | -2.000 -2.000 -2.000 -2.000 47 | 19780908120000 48 | 0.000 0.000 0.000 0.000 49 | 0.000 0.000 0.000 0.000 50 | -2.000 -2.000 -2.000 -2.000 51 | -2.000 -2.000 -2.000 -2.000 52 | 19780908180000 53 | 0.000 0.000 0.000 0.000 54 | 0.000 0.000 0.000 0.000 55 | -2.000 -2.000 -2.000 -2.000 56 | -2.000 -2.000 -2.000 -2.000 57 | -------------------------------------------------------------------------------- /const/Coarse_Grid/ARD/Grid_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_GRID_FILE 3 | C ================================ 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C **** PERIOD OF MODEL RUN **** 17 | C 18 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 19 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 20 | C IDELDO OUTPUT TIME STEP DEFAULT 1 21 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 22 | C 23 | C CDATEA CDATEE IDELDO U 24 | C-------------- -------------- ------- - 25 | 19780906060000 19780908060000 3 H 26 | C 27 | C ------------------------------------------------------------------------------ 28 | C 29 | C **** OUTPUT AT GIVE TIMES **** 30 | C 31 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 32 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 33 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 34 | C 35 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 36 | C-------------- -------------- -------------- -------------- 37 | C 19780906060000 19780906090000 19780906120000 19780906180000 38 | C 19780907000000 19780907060000 19780907120000 19780907180000 39 | C 19780908000000 19780908060000 40 | C 41 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 42 | C 43 | C ------------------------------------------------------------------------------ 44 | C 45 | C **** PARAMETERS TO BE PRINTED **** 46 | C 47 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 48 | C 49 | CP P 50 | C- - 51 | Y WIND SPEED U10 Y WIND DIRECTION 52 | Y FRICTION VELOCITY Y DRAG COEFFICIENT 53 | Y CHARNOCK PARAMETER Y WATER DEPTH 54 | Y CURRENT SPEED Y CURRENT DIRECTION 55 | C 56 | Y SIGNIFICANT WAVE HEIGHT Y WAVE PEAK PERIOD 57 | Y WAVE MEAN PERIOD Y WAVE TM1 PERIOD 58 | Y WAVE TM2 PERIOD Y WAVE DIRECTION 59 | Y DIRECTIONAL SPREAD Y NORMALISED WAVE STRESS 60 | C 61 | Y SEA SIGNIFICANT WAVE HEIGHT Y SEA PEAK PERIOD 62 | Y SEA MEAN PERIOD Y SEA TM1 PERIOD 63 | Y SEA TM2 PERIOD Y SEA DIRECTION 64 | N SEA DIRECTIONAL SPREAD N DUMMY 65 | C 66 | Y SWELL SIGNIFICANT WAVE HEIGHT Y SWELL PEAK PERIOD 67 | Y SWELL MEAN PERIOD Y SWELL TM1 PERIOD 68 | Y SWELL TM2 PERIOD Y SWELL DIRECTION 69 | N SWELL DIRECTIONAL SPREAD Y ROUGHNESS LENGTH Z0 70 | C 71 | Y GODA PEAKEDNESS PARAMETER Y KURTOSISY 72 | Y BENJAMIN-FEIR INDEX Y NORMALIZED MAXIMUM WAVE HEIGHT 73 | Y MAXIMUM WAVE PERIOD Y PEAK FREQUENCY (INTERPOLATED) 74 | Y PEAK DIRECTION Y MEAN SQUARE SLOPE 75 | C 76 | Y FIRST SWELL SIG. WAVE HEIGHT Y FIRST SWELL TM1 PERIOD 77 | Y FIRST SWELL DIRECTION Y SECOND SWELL SIG. WAVE HEIGHT 78 | Y SECOND SWELL TM1 PERIOD Y SECOND SWELL DIRECTION 79 | Y THIRD SWELL SIG. WAVE HEIGHT Y THIRD SWELL TM1 PERIOD 80 | Y THIRD SWELL DIRECTION Y DUMMY 81 | C 82 | Y RADIATION STRESS TENSOR SXX Y RADIATION STRESS TENSOR SYY 83 | Y RADIATION STRESS TENSOR SXY Y DUMMY 84 | Y X-COMP. WAVE FORCE Y Y-COMP. WAVE FORCE 85 | Y X-COMP. STOKES DRIFT Y Y-COMP. STOKES DRIFT 86 | Y ENERGY FLUX TO OCEAN Y TOTAL ENERGY FLUX FROM WIND TO WAVES 87 | Y X-COMP.MOMENTUM FLUX INTO OCEAN Y Y-COMP. MOMENTUM FLUX INTO OCEAN 88 | Y ENERGY FLUX INTO BOTTOM Y X-COMP. MOMENTUM FLUX INTO BOT. 89 | Y Y-COMP.MOMENTUM FLUX INTO BOT. Y DUMMY 90 | C 91 | Y CRMAX (TIME, FORRISTAL) Y HMAX (TIME, NAESS) 92 | Y CRMAX (SPACE-TIME (STQD)) Y HMAX (SPACE-TIME (STQD)) 93 | C 94 | C ------------------------------------------------------------------------------ 95 | C 96 | C REGULAR INTEROPLATE REDUCED TO REGULAR GRID: 97 | C N OR n : NO INTERPOLATION DEFAULT: Y: INTERPOLATION 98 | C 99 | C REGULAR 100 | C---------- 101 | Y 102 | C 103 | C ------------------------------------------------------------------------------ 104 | C 105 | C **** INPUT DATA FILE **** 106 | C 107 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 108 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 109 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 110 | C 111 | C CDATEF IDELFI U 112 | C-------------- ------- - 113 | 19780906060000 24 H 114 | C 115 | C **** INPUT AND OUTPUT FILE NAMES **** 116 | C 117 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 118 | C DEFINED IN "PRINT_GRID_FILE.f90": 119 | C 120 | C FILE05 = 'Grid_User' TO READ THIS INPUT FILE. 121 | C FILE06 = 'Grid_Prot' TO WRITE A PROTOCOL. 122 | C 123 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 124 | C---------+---------+---------+---------+---------+---------+---------+ 125 | /gpfs/work/behrens/WAM_Cycle_6/coarse/ARD/MAP 126 | C ------------------------------------------------------------------------------ 127 | C END OF USER INPUT PROGRAM PRINT_GRID. 128 | C ------------------------------------------------------------------------------ 129 | -------------------------------------------------------------------------------- /const/Coarse_Grid/ARD/Spectra_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_SPECTRA 3 | C ============================== 4 | C 5 | C **** DATES AND TIME STEPS FOR OUTPUT **** 6 | C 7 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 8 | C WITH THE PRESUMPTIONS THAT: 9 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 10 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 11 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 12 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 13 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 14 | C CONTAINED IN WAM_PRINT_USER_MODULE. 15 | C 16 | C ------------------------------------------------------------------------------ 17 | C 18 | C **** PERIOD OF MODEL RUN **** 19 | C 20 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 21 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 22 | C IDELDO OUTPUT TIME STEP DEFAULT 1 23 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H 24 | C 25 | C CDATEA CDATEE IDELDO U 26 | C-------------- -------------- ------- - 27 | 19780906060000 19780908060000 3 H 28 | C 29 | C ------------------------------------------------------------------------------ 30 | C 31 | C **** OUTPUT AT GIVE TIMES **** 32 | C 33 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 34 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 35 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 36 | C 37 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 38 | C-------------- -------------- -------------- -------------- 39 | C 19780906060000 19780906090000 19780906120000 19780906180000 40 | C 19780907000000 19780907060000 19780907120000 19780907180000 41 | C 19780908000000 19780908060000 42 | C 43 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 44 | C 45 | C ------------------------------------------------------------------------------ 46 | C 47 | C **** OUTPUT SITES **** 48 | C 49 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 50 | C 51 | C XLONG = LONGITUDE IN DEGREE 52 | C XLAT = LATITUDE IN DEGREE 53 | C NAME = SITE NAME (UP TO 20 CHARACTER) 54 | C 55 | C XLONG XLAT NAME 56 | C------------- ------------- ---------+---------+ 57 | 10.00 -9.50 Station 1 58 | 10.00 -9.00 Station 2 59 | 10.00 -8.50 Station 3 60 | 10.00 -8.00 Station 4 61 | 10.00 -7.50 Station 5 62 | 10.00 -7.00 Station 6 63 | 10.00 -5.50 Station 7 64 | 10.00 -5.00 Station 8 65 | 10.00 -4.50 Station 9 66 | 10.00 .00 Station 10 67 | 10.00 1.00 Station 11 68 | 10.00 2.00 Station 12 69 | 10.00 3.00 Station 13 70 | 10.00 4.00 Station 14 71 | 10.00 5.00 Station 15 72 | 10.00 6.00 Station 16 73 | 10.00 10.00 Station 17 74 | C 75 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 76 | C 77 | C ------------------------------------------------------------------------------ 78 | C 79 | C **** SPECTRA TO BE PRINTED **** 80 | C 81 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 82 | C 83 | CP P 84 | C- - 85 | Y SPECTRA OF TOTAL SEA N SEA SPECTRA 86 | N SWELL SPECTRA N DUMMY 87 | C 88 | C ------------------------------------------------------------------------------ 89 | C 90 | C **** INPUT DATA FILE **** 91 | C 92 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 93 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 94 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 95 | C 96 | C CDATEF IDELFI U 97 | C-------------- ------- - 98 | 19780906060000 24 H 99 | C 100 | C **** INPUT AND OUTPUT FILE NAMES **** 101 | C 102 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 103 | C DEFINED IN "PRINT_GRID_FILE.f90": 104 | C 105 | C FILE05 = 'Spectra_User' TO READ THIS INPUT FILE. 106 | C FILE06 = 'Spectra_Prot' TO WRITE A PROTOCOL. 107 | C 108 | C => SPECTRA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 109 | C---------+---------+---------+---------+---------+---------+---------+ 110 | /gpfs/work/behrens/WAM_Cycle_6/coarse/ARD/OUT 111 | C ------------------------------------------------------------------------------ 112 | C END OF USER INPUT PROGRAM PRINT_SPECTRA. 113 | C ------------------------------------------------------------------------------ 114 | -------------------------------------------------------------------------------- /const/Coarse_Grid/ARD/Time_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_TIME 3 | C =========================== 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C 17 | C **** PERIOD OF MODEL RUN **** 18 | C 19 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 20 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 21 | C IDELDO OUTPUT TIME STEP DEFAULT 1 22 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 23 | C 24 | C CDATEA CDATEE IDELDO U 25 | C-------------- -------------- ------- - 26 | 19780906060000 19780908060000 3 H 27 | C 28 | C ------------------------------------------------------------------------------ 29 | C 30 | C **** OUTPUT SITES **** 31 | C 32 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 33 | C 34 | C XLONG = LONGITUDE IN DEGREE 35 | C XLAT = LATITUDE IN DEGREE 36 | C NAME = SITE NAME (UP TO 20 CHARACTER) 37 | C 38 | C XLONG XLAT NAME 39 | C------------- ------------- ---------+---------+ 40 | 10.00 -9.50 Station 1 41 | 10.00 -9.00 Station 2 42 | 10.00 -8.50 Station 3 43 | 10.00 -8.00 Station 4 44 | 10.00 -7.50 Station 5 45 | 10.00 -7.00 Station 6 46 | 10.00 -5.50 Station 7 47 | 10.00 -5.00 Station 8 48 | 10.00 -4.50 Station 9 49 | 10.00 .00 Station 10 50 | 10.00 1.00 Station 11 51 | 10.00 2.00 Station 12 52 | 10.00 3.00 Station 13 53 | 10.00 4.00 Station 14 54 | 10.00 5.00 Station 15 55 | 10.00 6.00 Station 16 56 | 10.00 10.00 Station 17 57 | C 58 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 59 | C 60 | C ------------------------------------------------------------------------------ 61 | C 62 | C **** INPUT DATA FILE **** 63 | C 64 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 65 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 66 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 67 | C 68 | C CDATEF IDELFI U 69 | C-------------- ------- - 70 | 19780906060000 24 H 71 | C 72 | C **** INPUT AND OUTPUT FILE NAMES **** 73 | C 74 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 75 | C DEFINED IN "PRINT_TIME.f90": 76 | C 77 | C FILE05 = 'Time_User' TO READ THIS INPUT FILE. 78 | C FILE06 = 'Time_Prot' TO WRITE A PROTOCOL. 79 | C 80 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 81 | C---------+---------+---------+---------+---------+---------+---------+ 82 | /gpfs/work/behrens/WAM_Cycle_6/coarse/ARD/MAP 83 | C ------------------------------------------------------------------------------ 84 | C END OF USER INPUT PROGRAM PRINT_TIME. 85 | C ------------------------------------------------------------------------------ 86 | -------------------------------------------------------------------------------- /const/Coarse_Grid/ARD/nlnetcdf: -------------------------------------------------------------------------------- 1 | &nlnetcdf 2 | cdatea = '19780906060000', 3 | cdatee = '19780908060000', 4 | ideldo = 3, !! output time step 5 | cflag_p = T,T,F,F,F,F,F,F, T,T,T,T,T,T,F,F, T,F,F,F,F,T,F,F, T,F,F,F,F,T,F,T, F,F,F,F,F,F,F,F, 6 | F,F,F,F,F,F,F,F,F,F, F,F,F,F,F,F,T,T, T,T,T,T,T,T,T,F, T,T,T,T 7 | cdtfile = '19780906060000', 8 | idfile = 24, !! MAP-file time step 9 | file01 = '../coarse/ARD/MAP', 10 | xdello = 0.5, 11 | xdella = 0.5, 12 | iredu = 0 !! 0: regular grid, 1: reduced grid 13 | /end 14 | -------------------------------------------------------------------------------- /const/Coarse_Grid/JAN/Grid_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_GRID_FILE 3 | C ================================ 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C **** PERIOD OF MODEL RUN **** 17 | C 18 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 19 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 20 | C IDELDO OUTPUT TIME STEP DEFAULT 1 21 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 22 | C 23 | C CDATEA CDATEE IDELDO U 24 | C-------------- -------------- ------- - 25 | 19780906060000 19780908060000 3 H 26 | C 27 | C ------------------------------------------------------------------------------ 28 | C 29 | C **** OUTPUT AT GIVE TIMES **** 30 | C 31 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 32 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 33 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 34 | C 35 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 36 | C-------------- -------------- -------------- -------------- 37 | C 19780906060000 19780906090000 19780906120000 19780906180000 38 | C 19780907000000 19780907060000 19780907120000 19780907180000 39 | C 19780908000000 19780908060000 40 | C 41 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 42 | C 43 | C ------------------------------------------------------------------------------ 44 | C 45 | C **** PARAMETERS TO BE PRINTED **** 46 | C 47 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 48 | C 49 | CP P 50 | C- - 51 | Y WIND SPEED U10 Y WIND DIRECTION 52 | Y FRICTION VELOCITY Y DRAG COEFFICIENT 53 | Y CHARNOCK PARAMETER Y WATER DEPTH 54 | Y CURRENT SPEED Y CURRENT DIRECTION 55 | C 56 | Y SIGNIFICANT WAVE HEIGHT Y WAVE PEAK PERIOD 57 | Y WAVE MEAN PERIOD Y WAVE TM1 PERIOD 58 | Y WAVE TM2 PERIOD Y WAVE DIRECTION 59 | Y DIRECTIONAL SPREAD Y NORMALISED WAVE STRESS 60 | C 61 | Y SEA SIGNIFICANT WAVE HEIGHT Y SEA PEAK PERIOD 62 | Y SEA MEAN PERIOD Y SEA TM1 PERIOD 63 | Y SEA TM2 PERIOD Y SEA DIRECTION 64 | N SEA DIRECTIONAL SPREAD N DUMMY 65 | C 66 | Y SWELL SIGNIFICANT WAVE HEIGHT Y SWELL PEAK PERIOD 67 | Y SWELL MEAN PERIOD Y SWELL TM1 PERIOD 68 | Y SWELL TM2 PERIOD Y SWELL DIRECTION 69 | N SWELL DIRECTIONAL SPREAD Y ROUGHNESS LENGTH Z0 70 | C 71 | Y GODA PEAKEDNESS PARAMETER Y KURTOSISY 72 | Y BENJAMIN-FEIR INDEX Y NORMALIZED MAXIMUM WAVE HEIGHT 73 | Y MAXIMUM WAVE PERIOD Y PEAK FREQUENCY (INTERPOLATED) 74 | Y PEAK DIRECTION Y MEAN SQUARE SLOPE 75 | C 76 | Y FIRST SWELL SIG. WAVE HEIGHT Y FIRST SWELL TM1 PERIOD 77 | Y FIRST SWELL DIRECTION Y SECOND SWELL SIG. WAVE HEIGHT 78 | Y SECOND SWELL TM1 PERIOD Y SECOND SWELL DIRECTION 79 | Y THIRD SWELL SIG. WAVE HEIGHT Y THIRD SWELL TM1 PERIOD 80 | Y THIRD SWELL DIRECTION Y DUMMY 81 | C 82 | Y RADIATION STRESS TENSOR SXX Y RADIATION STRESS TENSOR SYY 83 | Y RADIATION STRESS TENSOR SXY Y DUMMY 84 | Y X-COMP. WAVE FORCE Y Y-COMP. WAVE FORCE 85 | Y X-COMP. STOKES DRIFT Y Y-COMP. STOKES DRIFT 86 | Y ENERGY FLUX TO OCEAN Y TOTAL ENERGY FLUX FROM WIND TO WAVES 87 | Y X-COMP.MOMENTUM FLUX INTO OCEAN Y Y-COMP. MOMENTUM FLUX INTO OCEAN 88 | Y ENERGY FLUX INTO BOTTOM Y X-COMP. MOMENTUM FLUX INTO BOT. 89 | Y Y-COMP.MOMENTUM FLUX INTO BOT. Y DUMMY 90 | C 91 | Y CRMAX (TIME, FORRISTAL) Y HMAX (TIME, NAESS) 92 | Y CRMAX (SPACE-TIME (STQD)) Y HMAX (SPACE-TIME (STQD)) 93 | C 94 | C ------------------------------------------------------------------------------ 95 | C 96 | C REGULAR INTEROPLATE REDUCED TO REGULAR GRID: 97 | C N OR n : NO INTERPOLATION DEFAULT: Y: INTERPOLATION 98 | C 99 | C REGULAR 100 | C---------- 101 | Y 102 | C 103 | C ------------------------------------------------------------------------------ 104 | C 105 | C **** INPUT DATA FILE **** 106 | C 107 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 108 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 109 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 110 | C 111 | C CDATEF IDELFI U 112 | C-------------- ------- - 113 | 19780906060000 24 H 114 | C 115 | C **** INPUT AND OUTPUT FILE NAMES **** 116 | C 117 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 118 | C DEFINED IN "PRINT_GRID_FILE.f90": 119 | C 120 | C FILE05 = 'Grid_User' TO READ THIS INPUT FILE. 121 | C FILE06 = 'Grid_Prot' TO WRITE A PROTOCOL. 122 | C 123 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 124 | C---------+---------+---------+---------+---------+---------+---------+ 125 | /gpfs/work/behrens/WAM_Cycle_6/coarse/JAN/MAP 126 | C ------------------------------------------------------------------------------ 127 | C END OF USER INPUT PROGRAM PRINT_GRID. 128 | C ------------------------------------------------------------------------------ 129 | -------------------------------------------------------------------------------- /const/Coarse_Grid/JAN/Spectra_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_SPECTRA 3 | C ============================== 4 | C 5 | C **** DATES AND TIME STEPS FOR OUTPUT **** 6 | C 7 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 8 | C WITH THE PRESUMPTIONS THAT: 9 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 10 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 11 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 12 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 13 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 14 | C CONTAINED IN WAM_PRINT_USER_MODULE. 15 | C 16 | C ------------------------------------------------------------------------------ 17 | C 18 | C **** PERIOD OF MODEL RUN **** 19 | C 20 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 21 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 22 | C IDELDO OUTPUT TIME STEP DEFAULT 1 23 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H 24 | C 25 | C CDATEA CDATEE IDELDO U 26 | C-------------- -------------- ------- - 27 | 19780906060000 19780908060000 3 H 28 | C 29 | C ------------------------------------------------------------------------------ 30 | C 31 | C **** OUTPUT AT GIVE TIMES **** 32 | C 33 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 34 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 35 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 36 | C 37 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 38 | C-------------- -------------- -------------- -------------- 39 | C 19780906060000 19780906090000 19780906120000 19780906180000 40 | C 19780907000000 19780907060000 19780907120000 19780907180000 41 | C 19780908000000 19780908060000 42 | C 43 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 44 | C 45 | C ------------------------------------------------------------------------------ 46 | C 47 | C **** OUTPUT SITES **** 48 | C 49 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 50 | C 51 | C XLONG = LONGITUDE IN DEGREE 52 | C XLAT = LATITUDE IN DEGREE 53 | C NAME = SITE NAME (UP TO 20 CHARACTER) 54 | C 55 | C XLONG XLAT NAME 56 | C------------- ------------- ---------+---------+ 57 | 10.00 -9.50 Station 1 58 | 10.00 -9.00 Station 2 59 | 10.00 -8.50 Station 3 60 | 10.00 -8.00 Station 4 61 | 10.00 -7.50 Station 5 62 | 10.00 -7.00 Station 6 63 | 10.00 -5.50 Station 7 64 | 10.00 -5.00 Station 8 65 | 10.00 -4.50 Station 9 66 | 10.00 .00 Station 10 67 | 10.00 1.00 Station 11 68 | 10.00 2.00 Station 12 69 | 10.00 3.00 Station 13 70 | 10.00 4.00 Station 14 71 | 10.00 5.00 Station 15 72 | 10.00 6.00 Station 16 73 | 10.00 10.00 Station 17 74 | 5.30 3.00 xoxc 75 | C 76 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 77 | C 78 | C ------------------------------------------------------------------------------ 79 | C 80 | C **** SPECTRA TO BE PRINTED **** 81 | C 82 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 83 | C 84 | CP P 85 | C- - 86 | Y SPECTRA OF TOTAL SEA Y SEA SPECTRA 87 | Y SWELL SPECTRA N DUMMY 88 | C 89 | C ------------------------------------------------------------------------------ 90 | C 91 | C **** INPUT DATA FILE **** 92 | C 93 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 94 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 95 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 96 | C 97 | C CDATEF IDELFI U 98 | C-------------- ------- - 99 | 19780906060000 24 H 100 | C 101 | C **** INPUT AND OUTPUT FILE NAMES **** 102 | C 103 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 104 | C DEFINED IN "PRINT_GRID_FILE.f90": 105 | C 106 | C FILE05 = 'Spectra_User' TO READ THIS INPUT FILE. 107 | C FILE06 = 'Spectra_Prot' TO WRITE A PROTOCOL. 108 | C 109 | C => SPECTRA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 110 | C---------+---------+---------+---------+---------+---------+---------+ 111 | /gpfs/work/behrens/WAM_Cycle_6/coarse/JAN/OUT 112 | C ------------------------------------------------------------------------------ 113 | C END OF USER INPUT PROGRAM PRINT_SPECTRA. 114 | C ------------------------------------------------------------------------------ 115 | -------------------------------------------------------------------------------- /const/Coarse_Grid/JAN/Time_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_TIME 3 | C =========================== 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C 17 | C **** PERIOD OF MODEL RUN **** 18 | C 19 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 20 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 21 | C IDELDO OUTPUT TIME STEP DEFAULT 1 22 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 23 | C 24 | C CDATEA CDATEE IDELDO U 25 | C-------------- -------------- ------- - 26 | 19780906060000 19780908060000 3 H 27 | C 28 | C ------------------------------------------------------------------------------ 29 | C 30 | C **** OUTPUT SITES **** 31 | C 32 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 33 | C 34 | C XLONG = LONGITUDE IN DEGREE 35 | C XLAT = LATITUDE IN DEGREE 36 | C NAME = SITE NAME (UP TO 20 CHARACTER) 37 | C 38 | C XLONG XLAT NAME 39 | C------------- ------------- ---------+---------+ 40 | 10.00 -9.50 Station 1 41 | 10.00 -9.00 Station 2 42 | 10.00 -8.50 Station 3 43 | 10.00 -8.00 Station 4 44 | 10.00 -7.50 Station 5 45 | 10.00 -7.00 Station 6 46 | 10.00 -5.50 Station 7 47 | 10.00 -5.00 Station 8 48 | 10.00 -4.50 Station 9 49 | 10.00 .00 Station 10 50 | 10.00 1.00 Station 11 51 | 10.00 2.00 Station 12 52 | 10.00 3.00 Station 13 53 | 10.00 4.00 Station 14 54 | 10.00 5.00 Station 15 55 | 10.00 6.00 Station 16 56 | 10.00 10.00 Station 17 57 | C 58 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 59 | C 60 | C ------------------------------------------------------------------------------ 61 | C 62 | C **** INPUT DATA FILE **** 63 | C 64 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 65 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 66 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 67 | C 68 | C CDATEF IDELFI U 69 | C-------------- ------- - 70 | 19780906060000 24 H 71 | C 72 | C **** INPUT AND OUTPUT FILE NAMES **** 73 | C 74 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 75 | C DEFINED IN "PRINT_TIME.f90": 76 | C 77 | C FILE05 = 'Time_User' TO READ THIS INPUT FILE. 78 | C FILE06 = 'Time_Prot' TO WRITE A PROTOCOL. 79 | C 80 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 81 | C---------+---------+---------+---------+---------+---------+---------+ 82 | /gpfs/work/behrens/WAM_Cycle_6/coarse/JAN/MAP 83 | C ------------------------------------------------------------------------------ 84 | C END OF USER INPUT PROGRAM PRINT_TIME. 85 | C ------------------------------------------------------------------------------ 86 | -------------------------------------------------------------------------------- /const/Coarse_Grid/JAN/nlnetcdf: -------------------------------------------------------------------------------- 1 | &nlnetcdf 2 | cdatea = '19780906060000', 3 | cdatee = '19780908060000', 4 | ideldo = 3, !! output time step 5 | cflag_p = T,T,F,F,F,F,F,F, T,T,T,T,T,T,F,F, T,F,F,F,F,T,F,F, T,F,F,F,F,T,F,T, F,F,F,F,F,F,F,F, 6 | F,F,F,F,F,F,F,F,F,F, F,F,F,F,F,F,T,T,T,T,T,T,T,T,T,F, T,T,T,T 7 | cdtfile = '19780906060000', 8 | idfile = 24, !! MAP-file time step 9 | file01 = '../coarse/JAN/MAP', 10 | xdello = 0.5, 11 | xdella = 0.5, 12 | iredu = 0 !! 0: regular grid, 1: reduced grid 13 | /end 14 | -------------------------------------------------------------------------------- /const/Fine_1/ARD/Grid_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_GRID_FILE 3 | C ================================ 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C **** PERIOD OF MODEL RUN **** 17 | C 18 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 19 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 20 | C IDELDO OUTPUT TIME STEP DEFAULT 1 21 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 22 | C 23 | C CDATEA CDATEE IDELDO U 24 | C-------------- -------------- ------- - 25 | 19780906060000 19780908060000 3 H 26 | C 27 | C ------------------------------------------------------------------------------ 28 | C 29 | C **** OUTPUT AT GIVE TIMES **** 30 | C 31 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 32 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 33 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 34 | C 35 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 36 | C-------------- -------------- -------------- -------------- 37 | C 19780906060000 19780906090000 19780906120000 19780906180000 38 | C 19780907000000 19780907060000 19780907120000 19780907180000 39 | C 19780908000000 19780908060000 40 | C 41 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 42 | C 43 | C ------------------------------------------------------------------------------ 44 | C 45 | C **** PARAMETERS TO BE PRINTED **** 46 | C 47 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 48 | C 49 | CP P 50 | C- - 51 | Y WIND SPEED U10 Y WIND DIRECTION 52 | Y FRICTION VELOCITY Y DRAG COEFFICIENT 53 | Y CHARNOCK PARAMETER Y WATER DEPTH 54 | Y CURRENT SPEED Y CURRENT DIRECTION 55 | C 56 | Y SIGNIFICANT WAVE HEIGHT Y WAVE PEAK PERIOD 57 | Y WAVE MEAN PERIOD Y WAVE TM1 PERIOD 58 | Y WAVE TM2 PERIOD Y WAVE DIRECTION 59 | Y DIRECTIONAL SPREAD Y NORMALISED WAVE STRESS 60 | C 61 | Y SEA SIGNIFICANT WAVE HEIGHT Y SEA PEAK PERIOD 62 | Y SEA MEAN PERIOD Y SEA TM1 PERIOD 63 | Y SEA TM2 PERIOD Y SEA DIRECTION 64 | N SEA DIRECTIONAL SPREAD N DUMMY Y 65 | C 66 | Y SWELL SIGNIFICANT WAVE HEIGHT Y SWELL PEAK PERIOD 67 | Y SWELL MEAN PERIOD Y SWELL TM1 PERIOD 68 | Y SWELL TM2 PERIOD Y SWELL DIRECTION 69 | N SWELL DIRECTIONAL SPREAD Y ROUGHNESS LENGTH Z0 70 | C 71 | Y GODA PEAKEDNESS PARAMETER Y KURTOSISY 72 | Y BENJAMIN-FEIR INDEX Y NORMALIZED MAXIMUM WAVE HEIGHT 73 | Y MAXIMUM WAVE PERIOD Y PEAK FREQUENCY (INTERPOLATED) 74 | Y PEAK DIRECTION Y MEAN SQUARE SLOPE 75 | C 76 | Y FIRST SWELL SIG. WAVE HEIGHT Y FIRST SWELL TM1 PERIOD 77 | Y FIRST SWELL DIRECTION Y SECOND SWELL SIG. WAVE HEIGHT 78 | Y SECOND SWELL TM1 PERIOD Y SECOND SWELL DIRECTION 79 | Y THIRD SWELL SIG. WAVE HEIGHT Y THIRD SWELL TM1 PERIOD 80 | Y THIRD SWELL DIRECTION Y DUMMY 81 | C 82 | Y RADIATION STRESS TENSOR SXX Y RADIATION STRESS TENSOR SYY 83 | Y RADIATION STRESS TENSOR SXY Y DUMMY 84 | Y X-COMP. WAVE FORCE Y Y-COMP. WAVE FORCE 85 | Y X-COMP. STOKES DRIFT Y Y-COMP. STOKES DRIFT 86 | Y ENERGY FLUX TO OCEAN Y TOTAL ENERGY FLUX FROM WIND TO WAVES 87 | Y X-COMP.MOMENTUM FLUX INTO OCEAN Y Y-COMP. MOMENTUM FLUX INTO OCEAN 88 | Y ENERGY FLUX INTO BOTTOM Y X-COMP. MOMENTUM FLUX INTO BOT. 89 | Y Y-COMP.MOMENTUM FLUX INTO BOT. Y DUMMY 90 | C 91 | Y CRMAX (TIME, FORRISTAL) Y HMAX (TIME, NAESS) 92 | Y CRMAX (SPACE-TIME (STQD)) Y HMAX (SPACE-TIME (STQD)) 93 | C 94 | C ------------------------------------------------------------------------------ 95 | C 96 | C REGULAR INTEROPLATE REDUCED TO REGULAR GRID: 97 | C N OR n : NO INTERPOLATION DEFAULT: Y: INTERPOLATION 98 | C 99 | C REGULAR 100 | C---------- 101 | Y 102 | C 103 | C ------------------------------------------------------------------------------ 104 | C 105 | C **** INPUT DATA FILE **** 106 | C 107 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 108 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 109 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 110 | C 111 | C CDATEF IDELFI U 112 | C-------------- ------- - 113 | 19780906060000 24 H 114 | C 115 | C **** INPUT AND OUTPUT FILE NAMES **** 116 | C 117 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 118 | C DEFINED IN "PRINT_GRID_FILE.f90": 119 | C 120 | C FILE05 = 'Grid_User' TO READ THIS INPUT FILE. 121 | C FILE06 = 'Grid_Prot' TO WRITE A PROTOCOL. 122 | C 123 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 124 | C---------+---------+---------+---------+---------+---------+---------+ 125 | MAP1 126 | C ------------------------------------------------------------------------------ 127 | C END OF USER INPUT PROGRAM PRINT_GRID. 128 | C ------------------------------------------------------------------------------ 129 | -------------------------------------------------------------------------------- /const/Fine_1/ARD/Spectra_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_SPECTRA 3 | C ============================== 4 | C 5 | C **** DATES AND TIME STEPS FOR OUTPUT **** 6 | C 7 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 8 | C WITH THE PRESUMPTIONS THAT: 9 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 10 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 11 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 12 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 13 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 14 | C CONTAINED IN WAM_PRINT_USER_MODULE. 15 | C 16 | C ------------------------------------------------------------------------------ 17 | C 18 | C **** PERIOD OF MODEL RUN **** 19 | C 20 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 21 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 22 | C IDELDO OUTPUT TIME STEP DEFAULT 1 23 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H 24 | C 25 | C CDATEA CDATEE IDELDO U 26 | C-------------- -------------- ------- - 27 | 19780906060000 19780908060000 3 H 28 | C 29 | C ------------------------------------------------------------------------------ 30 | C 31 | C **** OUTPUT AT GIVE TIMES **** 32 | C 33 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 34 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 35 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 36 | C 37 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 38 | C-------------- -------------- -------------- -------------- 39 | C 19780906060000 19780906090000 19780906120000 19780906180000 40 | C 19780907000000 19780907060000 19780907120000 19780907180000 41 | C 19780908000000 19780908060000 42 | C 43 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 44 | C 45 | C ------------------------------------------------------------------------------ 46 | C 47 | C **** OUTPUT SITES **** 48 | C 49 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 50 | C 51 | C XLONG = LONGITUDE IN DEGREE 52 | C XLAT = LATITUDE IN DEGREE 53 | C NAME = SITE NAME (UP TO 20 CHARACTER) 54 | C COORDINATE FORMAT: REAL DEGREES F13.8 OR 55 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 56 | C 57 | C XLONG XLAT NAME 58 | C------------- ------------- ---------+---------+ 59 | 10.00 -9.50 Station 1 60 | 10.00 -9.00 Station 2 61 | 10.00 -8.50 Station 3 62 | 10.00 -8.00 Station 4 63 | 10.00 -7.50 Station 5 64 | 10.00 -7.00 Station 6 65 | 10.00 -5.50 Station 7 66 | 10.00 -5.00 Station 8 67 | 10.00 -4.50 Station 9 68 | 10.00 .00 Station 10 69 | 10.00 1.00 Station 11 70 | 10.00 2.00 Station 12 71 | 10.00 3.00 Station 13 72 | 10.00 4.00 Station 14 73 | 10.00 5.00 Station 15 74 | 10.00 6.00 Station 16 75 | 10.00 10.00 Station 17 76 | C 77 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 78 | C 79 | C ------------------------------------------------------------------------------ 80 | C 81 | C **** SPECTRA TO BE PRINTED **** 82 | C 83 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 84 | C 85 | CP P 86 | C- - 87 | Y SPECTRA OF TOTAL SEA Y SEA SPECTRA 88 | Y SWELL SPECTRA N DUMMY 89 | C 90 | C ------------------------------------------------------------------------------ 91 | C 92 | C **** INPUT DATA FILE **** 93 | C 94 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 95 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 96 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 97 | C 98 | C CDATEF IDELFI U 99 | C-------------- ------- - 100 | 19780906060000 24 H 101 | C 102 | C **** INPUT AND OUTPUT FILE NAMES **** 103 | C 104 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 105 | C DEFINED IN "PRINT_GRID_FILE.f90": 106 | C 107 | C FILE05 = 'Spectra_User' TO READ THIS INPUT FILE. 108 | C FILE06 = 'Spectra_Prot' TO WRITE A PROTOCOL. 109 | C 110 | C => SPECTRA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 111 | C---------+---------+---------+---------+---------+---------+---------+ 112 | OUT1 113 | C ------------------------------------------------------------------------------ 114 | C END OF USER INPUT PROGRAM PRINT_SPECTRA. 115 | C ------------------------------------------------------------------------------ 116 | -------------------------------------------------------------------------------- /const/Fine_1/ARD/Time_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_TIME 3 | C =========================== 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C 17 | C **** PERIOD OF MODEL RUN **** 18 | C 19 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 20 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 21 | C IDELDO OUTPUT TIME STEP DEFAULT 1 22 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 23 | C 24 | C CDATEA CDATEE IDELDO U 25 | C-------------- -------------- ------- - 26 | 19780906060000 19780908060000 3 H 27 | C 28 | C ------------------------------------------------------------------------------ 29 | C 30 | C **** OUTPUT SITES **** 31 | C 32 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 33 | C 34 | C XLONG = LONGITUDE IN DEGREE 35 | C XLAT = LATITUDE IN DEGREE 36 | C NAME = SITE NAME (UP TO 20 CHARACTER) 37 | C 38 | C XLONG XLAT NAME 39 | C------------- ------------- ---------+---------+ 40 | 10.00 -9.50 Station 1 41 | 10.00 -9.00 Station 2 42 | 10.00 -8.50 Station 3 43 | 10.00 -8.00 Station 4 44 | 10.00 -7.50 Station 5 45 | 10.00 -7.00 Station 6 46 | 10.00 -5.50 Station 7 47 | 10.00 -5.00 Station 8 48 | 10.00 -4.50 Station 9 49 | 10.00 .00 Station 10 50 | 10.00 1.00 Station 11 51 | 10.00 2.00 Station 12 52 | 10.00 3.00 Station 13 53 | 10.00 4.00 Station 14 54 | 10.00 5.00 Station 15 55 | 10.00 6.00 Station 16 56 | 10.00 10.00 Station 17 57 | C 58 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 59 | C 60 | C ------------------------------------------------------------------------------ 61 | C 62 | C **** INPUT DATA FILE **** 63 | C 64 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 65 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 66 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 67 | C 68 | C CDATEF IDELFI U 69 | C-------------- ------- - 70 | 19780906060000 24 H 71 | C 72 | C **** INPUT AND OUTPUT FILE NAMES **** 73 | C 74 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 75 | C DEFINED IN "PRINT_TIME.f90": 76 | C 77 | C FILE05 = 'Time_User' TO READ THIS INPUT FILE. 78 | C FILE06 = 'Time_Prot' TO WRITE A PROTOCOL. 79 | C 80 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 81 | C---------+---------+---------+---------+---------+---------+---------+ 82 | MAP1 83 | C ------------------------------------------------------------------------------ 84 | C END OF USER INPUT PROGRAM PRINT_TIME. 85 | C ------------------------------------------------------------------------------ 86 | -------------------------------------------------------------------------------- /const/Fine_1/JAN/Grid_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_GRID_FILE 3 | C ================================ 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C **** PERIOD OF MODEL RUN **** 17 | C 18 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 19 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 20 | C IDELDO OUTPUT TIME STEP DEFAULT 1 21 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 22 | C 23 | C CDATEA CDATEE IDELDO U 24 | C-------------- -------------- ------- - 25 | 19780906060000 19780908060000 3 H 26 | C 27 | C ------------------------------------------------------------------------------ 28 | C 29 | C **** OUTPUT AT GIVE TIMES **** 30 | C 31 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 32 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 33 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 34 | C 35 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 36 | C-------------- -------------- -------------- -------------- 37 | C 19780906060000 19780906090000 19780906120000 19780906180000 38 | C 19780907000000 19780907060000 19780907120000 19780907180000 39 | C 19780908000000 19780908060000 40 | C 41 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 42 | C 43 | C ------------------------------------------------------------------------------ 44 | C 45 | C **** PARAMETERS TO BE PRINTED **** 46 | C 47 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 48 | C 49 | CP P 50 | C- - 51 | Y WIND SPEED U10 Y WIND DIRECTION 52 | Y FRICTION VELOCITY Y DRAG COEFFICIENT 53 | Y CHARNOCK PARAMETER Y WATER DEPTH 54 | Y CURRENT SPEED Y CURRENT DIRECTION 55 | C 56 | Y SIGNIFICANT WAVE HEIGHT Y WAVE PEAK PERIOD 57 | Y WAVE MEAN PERIOD Y WAVE TM1 PERIOD 58 | Y WAVE TM2 PERIOD Y WAVE DIRECTION 59 | Y DIRECTIONAL SPREAD Y NORMALISED WAVE STRESS 60 | C 61 | Y SEA SIGNIFICANT WAVE HEIGHT Y SEA PEAK PERIOD 62 | Y SEA MEAN PERIOD Y SEA TM1 PERIOD 63 | Y SEA TM2 PERIOD Y SEA DIRECTION 64 | N SEA DIRECTIONAL SPREAD N DUMMY 65 | C 66 | Y SWELL SIGNIFICANT WAVE HEIGHT Y SWELL PEAK PERIOD 67 | Y SWELL MEAN PERIOD Y SWELL TM1 PERIOD 68 | Y SWELL TM2 PERIOD Y SWELL DIRECTION 69 | N SWELL DIRECTIONAL SPREAD Y ROUGHNESS LENGTH Z0 70 | C 71 | Y GODA PEAKEDNESS PARAMETER Y KURTOSISY 72 | Y BENJAMIN-FEIR INDEX Y NORMALIZED MAXIMUM WAVE HEIGHT 73 | Y MAXIMUM WAVE PERIOD Y PEAK FREQUENCY (INTERPOLATED) 74 | Y PEAK DIRECTION Y MEAN SQUARE SLOPE 75 | C 76 | Y FIRST SWELL SIG. WAVE HEIGHT Y FIRST SWELL TM1 PERIOD 77 | Y FIRST SWELL DIRECTION Y SECOND SWELL SIG. WAVE HEIGHT 78 | Y SECOND SWELL TM1 PERIOD Y SECOND SWELL DIRECTION 79 | Y THIRD SWELL SIG. WAVE HEIGHT Y THIRD SWELL TM1 PERIOD 80 | Y THIRD SWELL DIRECTION N DUMMY 81 | C 82 | N RADIATION STRESS TENSOR SXX N RADIATION STRESS TENSOR SYY 83 | N RADIATION STRESS TENSOR SXY N DUMMY 84 | Y X-COMP. WAVE FORCE Y Y-COMP. WAVE FORCE 85 | Y X-COMP. STOKES DRIFT Y Y-COMP. STOKES DRIFT 86 | C 87 | Y ENERGY FLUX TO OCEAN Y TOTAL ENERGY FLUX FROM WIND TO WAVES 88 | Y X-COMP.MOMENTUM FLUX INTO OCEAN Y Y-COMP. MOMENTUM FLUX INTO OCEAN 89 | Y ENERGY FLUX INTO BOTTOM Y X-COMP. MOMENTUM FLUX INTO BOT. 90 | Y Y-COMP.MOMENTUM FLUX INTO BOT. Y DUMMY 91 | C 92 | Y CRMAX (TIME, FORRISTAL) Y HMAX (TIME, NAESS) 93 | Y CRMAX (SPACE-TIME (STQD)) Y HMAX (SPACE-TIME (STQD)) 94 | C 95 | C ------------------------------------------------------------------------------ 96 | C 97 | C REGULAR INTEROPLATE REDUCED TO REGULAR GRID: 98 | C N OR n : NO INTERPOLATION DEFAULT: Y: INTERPOLATION 99 | C 100 | C REGULAR 101 | C---------- 102 | Y 103 | C 104 | C ------------------------------------------------------------------------------ 105 | C 106 | C **** INPUT DATA FILE **** 107 | C 108 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 109 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 110 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 111 | C 112 | C CDATEF IDELFI U 113 | C-------------- ------- - 114 | 19780906060000 24 H 115 | C 116 | C **** INPUT AND OUTPUT FILE NAMES **** 117 | C 118 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 119 | C DEFINED IN "PRINT_GRID_FILE.f90": 120 | C 121 | C FILE05 = 'Grid_User' TO READ THIS INPUT FILE. 122 | C FILE06 = 'Grid_Prot' TO WRITE A PROTOCOL. 123 | C 124 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 125 | C---------+---------+---------+---------+---------+---------+---------+ 126 | /gpfs/work/behrens/WAM_Cycle_6/fine_1/MAP1 127 | C ------------------------------------------------------------------------------ 128 | C END OF USER INPUT PROGRAM PRINT_GRID. 129 | C ------------------------------------------------------------------------------ 130 | -------------------------------------------------------------------------------- /const/Fine_1/JAN/Spectra_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_SPECTRA 3 | C ============================== 4 | C 5 | C **** DATES AND TIME STEPS FOR OUTPUT **** 6 | C 7 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 8 | C WITH THE PRESUMPTIONS THAT: 9 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 10 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 11 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 12 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 13 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 14 | C CONTAINED IN WAM_PRINT_USER_MODULE. 15 | C 16 | C ------------------------------------------------------------------------------ 17 | C 18 | C **** PERIOD OF MODEL RUN **** 19 | C 20 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 21 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 22 | C IDELDO OUTPUT TIME STEP DEFAULT 1 23 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H 24 | C 25 | C CDATEA CDATEE IDELDO U 26 | C-------------- -------------- ------- - 27 | 19780906060000 19780908060000 3 H 28 | C 29 | C ------------------------------------------------------------------------------ 30 | C 31 | C **** OUTPUT AT GIVE TIMES **** 32 | C 33 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 34 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 35 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 36 | C 37 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 38 | C-------------- -------------- -------------- -------------- 39 | C 19780906060000 19780906090000 19780906120000 19780906180000 40 | C 19780907000000 19780907060000 19780907120000 19780907180000 41 | C 19780908000000 19780908060000 42 | C 43 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 44 | C 45 | C ------------------------------------------------------------------------------ 46 | C 47 | C **** OUTPUT SITES **** 48 | C 49 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 50 | C 51 | C XLONG = LONGITUDE IN DEGREE 52 | C XLAT = LATITUDE IN DEGREE 53 | C NAME = SITE NAME (UP TO 20 CHARACTER) 54 | C COORDINATE FORMAT: REAL DEGREES F13.8 OR 55 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 56 | C 57 | C XLONG XLAT NAME 58 | C------------- ------------- ---------+---------+ 59 | 10.00 -9.50 Station 1 60 | 10.00 -9.00 Station 2 61 | 10.00 -8.50 Station 3 62 | 10.00 -8.00 Station 4 63 | 10.00 -7.50 Station 5 64 | 10.00 -7.00 Station 6 65 | 10.00 -5.50 Station 7 66 | 10.00 -5.00 Station 8 67 | 10.00 -4.50 Station 9 68 | 10.00 .00 Station 10 69 | 10.00 1.00 Station 11 70 | 10.00 2.00 Station 12 71 | 10.00 3.00 Station 13 72 | 10.00 4.00 Station 14 73 | 10.00 5.00 Station 15 74 | 10.00 6.00 Station 16 75 | 10.00 10.00 Station 17 76 | 5.30 3.00 xox 77 | C 78 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 79 | C 80 | C ------------------------------------------------------------------------------ 81 | C 82 | C **** SPECTRA TO BE PRINTED **** 83 | C 84 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 85 | C 86 | CP P 87 | C- - 88 | Y SPECTRA OF TOTAL SEA N SEA SPECTRA 89 | N SWELL SPECTRA N DUMMY 90 | C 91 | C ------------------------------------------------------------------------------ 92 | C 93 | C **** INPUT DATA FILE **** 94 | C 95 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 96 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 97 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 98 | C 99 | C CDATEF IDELFI U 100 | C-------------- ------- - 101 | 19780906060000 24 H 102 | C 103 | C **** INPUT AND OUTPUT FILE NAMES **** 104 | C 105 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 106 | C DEFINED IN "PRINT_GRID_FILE.f90": 107 | C 108 | C FILE05 = 'Spectra_User' TO READ THIS INPUT FILE. 109 | C FILE06 = 'Spectra_Prot' TO WRITE A PROTOCOL. 110 | C 111 | C => SPECTRA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 112 | C---------+---------+---------+---------+---------+---------+---------+ 113 | /gpfs/work/behrens/WAM_Cycle_6/fine_1/OUT1 114 | C ------------------------------------------------------------------------------ 115 | C END OF USER INPUT PROGRAM PRINT_SPECTRA. 116 | C ------------------------------------------------------------------------------ 117 | -------------------------------------------------------------------------------- /const/Fine_1/JAN/Time_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_TIME 3 | C =========================== 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C 17 | C **** PERIOD OF MODEL RUN **** 18 | C 19 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 20 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 21 | C IDELDO OUTPUT TIME STEP DEFAULT 1 22 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 23 | C 24 | C CDATEA CDATEE IDELDO U 25 | C-------------- -------------- ------- - 26 | 19780906060000 19780908060000 3 H 27 | C 28 | C ------------------------------------------------------------------------------ 29 | C 30 | C **** OUTPUT SITES **** 31 | C 32 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 33 | C 34 | C XLONG = LONGITUDE IN DEGREE 35 | C XLAT = LATITUDE IN DEGREE 36 | C NAME = SITE NAME (UP TO 20 CHARACTER) 37 | C 38 | C XLONG XLAT NAME 39 | C------------- ------------- ---------+---------+ 40 | 10.00 -9.50 Station 1 41 | 10.00 -9.00 Station 2 42 | 10.00 -8.50 Station 3 43 | 10.00 -8.00 Station 4 44 | 10.00 -7.50 Station 5 45 | 10.00 -7.00 Station 6 46 | 10.00 -5.50 Station 7 47 | 10.00 -5.00 Station 8 48 | 10.00 -4.50 Station 9 49 | 10.00 .00 Station 10 50 | 10.00 1.00 Station 11 51 | 10.00 2.00 Station 12 52 | 10.00 3.00 Station 13 53 | 10.00 4.00 Station 14 54 | 10.00 5.00 Station 15 55 | 10.00 6.00 Station 16 56 | 10.00 10.00 Station 17 57 | C 58 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 59 | C 60 | C ------------------------------------------------------------------------------ 61 | C 62 | C **** INPUT DATA FILE **** 63 | C 64 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 65 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 66 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 67 | C 68 | C CDATEF IDELFI U 69 | C-------------- ------- - 70 | 19780906060000 24 H 71 | C 72 | C **** INPUT AND OUTPUT FILE NAMES **** 73 | C 74 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 75 | C DEFINED IN "PRINT_TIME.f90": 76 | C 77 | C FILE05 = 'Time_User' TO READ THIS INPUT FILE. 78 | C FILE06 = 'Time_Prot' TO WRITE A PROTOCOL. 79 | C 80 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 81 | C---------+---------+---------+---------+---------+---------+---------+ 82 | MAP1 83 | C ------------------------------------------------------------------------------ 84 | C END OF USER INPUT PROGRAM PRINT_TIME. 85 | C ------------------------------------------------------------------------------ 86 | -------------------------------------------------------------------------------- /const/Fine_1/JAN/nlnetcdf: -------------------------------------------------------------------------------- 1 | &nlnetcdf 2 | cdatea = '19780906060000', 3 | cdatee = '19780908060000', 4 | ideldo = 3, !! output time step 5 | cflag_p = T,T,F,F,F,F,F,F, T,T,T,T,T,T,F,F, T,F,F,F,F,T,F,F, T,F,F,F,F,T,F,T, F,F,F,F,F,F,F,F, 6 | F,F,F,F,F,F,F,F,F,F, F,F,F,F,F,F,T,T, T,T,T,T,T,T,T,F, T,T,T,T 7 | cdtfile = '19780906060000', 8 | idfile = 24, !! MAP-file time step 9 | file01 = '../fine_1/MAP1', 10 | xdello = 0.333, 11 | xdella = 0.333, 12 | iredu = 0 !! 0: regular grid, 1: reduced grid 13 | /end 14 | -------------------------------------------------------------------------------- /const/Fine_2/ARD/.DS_Store: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/const/Fine_2/ARD/.DS_Store -------------------------------------------------------------------------------- /const/Fine_2/ARD/Grid_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_GRID_FILE 3 | C ================================ 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C **** PERIOD OF MODEL RUN **** 17 | C 18 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 19 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 20 | C IDELDO OUTPUT TIME STEP DEFAULT 1 21 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 22 | C 23 | C CDATEA CDATEE IDELDO U 24 | C-------------- -------------- ------- - 25 | 19780906060000 19780908060000 3 H 26 | C 27 | C ------------------------------------------------------------------------------ 28 | C 29 | C **** OUTPUT AT GIVE TIMES **** 30 | C 31 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 32 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 33 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 34 | C 35 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 36 | C-------------- -------------- -------------- -------------- 37 | C 19780906060000 19780906090000 19780906120000 19780906180000 38 | C 19780907000000 19780907060000 19780907120000 19780907180000 39 | C 19780908000000 19780908060000 40 | C 41 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 42 | C 43 | C ------------------------------------------------------------------------------ 44 | C 45 | C **** PARAMETERS TO BE PRINTED **** 46 | C 47 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 48 | C 49 | CP P 50 | C- - 51 | Y WIND SPEED U10 Y WIND DIRECTION 52 | Y FRICTION VELOCITY Y DRAG COEFFICIENT 53 | Y CHARNOCK PARAMETER Y WATER DEPTH 54 | Y CURRENT SPEED Y CURRENT DIRECTION 55 | C 56 | Y SIGNIFICANT WAVE HEIGHT Y WAVE PEAK PERIOD 57 | Y WAVE MEAN PERIOD Y WAVE TM1 PERIOD 58 | Y WAVE TM2 PERIOD Y WAVE DIRECTION 59 | Y DIRECTIONAL SPREAD Y NORMALISED WAVE STRESS 60 | C 61 | Y SEA SIGNIFICANT WAVE HEIGHT Y SEA PEAK PERIOD 62 | Y SEA MEAN PERIOD Y SEA TM1 PERIOD 63 | Y SEA TM2 PERIOD Y SEA DIRECTION 64 | Y SEA DIRECTIONAL SPREAD N DUMMY 65 | C 66 | Y SWELL SIGNIFICANT WAVE HEIGHT Y SWELL PEAK PERIOD 67 | Y SWELL MEAN PERIOD Y SWELL TM1 PERIOD 68 | Y SWELL TM2 PERIOD Y SWELL DIRECTION 69 | Y SWELL DIRECTIONAL SPREAD Y ROUGHNESS LENGTH Z0 70 | C 71 | Y GODA PEAKEDNESS PARAMETER Y KURTOSISY 72 | Y BENJAMIN-FEIR INDEX Y NORMALIZED MAXIMUM WAVE HEIGHT 73 | Y MAXIMUM WAVE PERIOD Y PEAK FREQUENCY (INTERPOLATED) 74 | Y PEAK DIRECTION Y MEAN SQUARE SLOPE 75 | C 76 | Y FIRST SWELL SIG. WAVE HEIGHT Y FIRST SWELL TM1 PERIOD 77 | Y FIRST SWELL DIRECTION Y SECOND SWELL SIG. WAVE HEIGHT 78 | Y SECOND SWELL TM1 PERIOD Y SECOND SWELL DIRECTION 79 | Y THIRD SWELL SIG. WAVE HEIGHT Y THIRD SWELL TM1 PERIOD 80 | Y THIRD SWELL DIRECTION N DUMMY 81 | C 82 | Y RADIATION STRESS TENSOR SXX Y RADIATION STRESS TENSOR SYY 83 | Y RADIATION STRESS TENSOR SXY Y DUMMY 84 | Y X-COMP. WAVE FORCE Y Y-COMP. WAVE FORCE 85 | Y X-COMP. STOKES DRIFT Y Y-COMP. STOKES DRIFT 86 | Y ENERGY FLUX TO OCEAN Y TOTAL ENERGY FLUX FROM WIND TO WAVES 87 | Y X-COMP.MOMENTUM FLUX INTO OCEAN Y Y-COMP. MOMENTUM FLUX INTO OCEAN 88 | Y ENERGY FLUX INTO BOTTOM Y X-COMP. MOMENTUM FLUX INTO BOT. 89 | Y Y-COMP.MOMENTUM FLUX INTO BOT. Y DUMMY 90 | C 91 | Y CRMAX (TIME, FORRISTAL) Y HMAX (TIME, NAESS) 92 | Y CRMAX (SPACE-TIME (STQD)) Y HMAX (SPACE-TIME (STQD)) 93 | C 94 | C ------------------------------------------------------------------------------ 95 | C 96 | C REGULAR INTEROPLATE REDUCED TO REGULAR GRID: 97 | C N OR n : NO INTERPOLATION DEFAULT: Y: INTERPOLATION 98 | C 99 | C REGULAR 100 | C---------- 101 | Y 102 | C 103 | C ------------------------------------------------------------------------------ 104 | C 105 | C **** INPUT DATA FILE **** 106 | C 107 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 108 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 109 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 110 | C 111 | C CDATEF IDELFI U 112 | C-------------- ------- - 113 | 19780906060000 24 H 114 | C 115 | C **** INPUT AND OUTPUT FILE NAMES **** 116 | C 117 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 118 | C DEFINED IN "PRINT_GRID_FILE.f90": 119 | C 120 | C FILE05 = 'Grid_User' TO READ THIS INPUT FILE. 121 | C FILE06 = 'Grid_Prot' TO WRITE A PROTOCOL. 122 | C 123 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 124 | C---------+---------+---------+---------+---------+---------+---------+ 125 | MAP2 126 | C ------------------------------------------------------------------------------ 127 | C END OF USER INPUT PROGRAM PRINT_GRID. 128 | C ------------------------------------------------------------------------------ 129 | -------------------------------------------------------------------------------- /const/Fine_2/ARD/Preproc_User: -------------------------------------------------------------------------------- 1 | C 2 | C USER INPUT OF PREPROC. CREATED 20/8/2011 3 | C ====================== 4 | C 5 | C 6 | C USER INFORMATION IS BEING READ BY SUB. READ__PREPROC_USER 7 | C WITH THE PRESUMPTIONS THAT: 8 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 9 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 10 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 11 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 12 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PREPROC_USER_MODULE 13 | C CONTAINED IN PREPROC_USER_MODULE. 14 | C 15 | C ------------------------------------------------------------------------------ 16 | C 17 | C **** HEADER OF MODEL RUN **** 18 | C 19 | C HEADER CHARACTER*80 TEXT TO BE PRINTED 20 | C 21 | CHEADER 22 | C---------+---------+---------+---------+---------+---------+---------+--------- 23 | SWAMP WAVE MODEL RUN FINE GRID 2 24 | C 25 | C ------------------------------------------------------------------------------ 26 | C 27 | C 1. FREQUENCY AND DIRECTION GRID DEFINITIONS 28 | C 29 | C ML INTEGER NUMBER OF FREQUENCIES. (DEFAULT 25) 30 | C KL INTEGER NUMBER OF DIRECTIONS. (DEFAULT 24) 31 | C FR(1) REAL LOWEST FREQUENCY [HZ]. (DEFAULT .04177248) 32 | C IREF INTEGER FREQUENCY BIN NUMBER OF REFERENCE FREQU. (DEFAULT 1) 33 | C 34 | C ML KL FR(1) IREF 35 | C----- ----- ---------- ----- 36 | 25 12 .04177248 37 | C 38 | C ------------------------------------------------------------------------------ 39 | C 40 | C 2. SHALLOW WATER DEPTH TABLE DEFINITIONS. 41 | C 42 | C N_DEPTH INTEGER LENGTH OF SHALLOW WATER TABLES. (DEFAULT 69) 43 | C DEPTH_S REAL MINIMUM DEPTH FOR TABLES [M]. (DEFAULT 1.0) 44 | C DEPTH_I REAL DEPTH INCREMENT [%] (DEFAULT 1.1) 45 | C 46 | C N_DEPTH DEPTH_S DEPTH_I 47 | C---------- ---------- ---------- 48 | 49 | C 50 | C ------------------------------------------------------------------------------ 51 | C 52 | C 2. OUTPUT GRID DEFINITIONS. 53 | C 54 | C REDURCED F : THE LONGITUTE INCREMENT IS CONSTANT (DEFAULT) 55 | C T : THE LONGITUTE INCREMENT IS INCREASED WITH LATITUDE. 56 | C L_INTERPOL T : MODEL DEPTH IS NEAREST NEIGHBOUR DEPTH OF INPUT TOPOGRAPHY (DEFAULT) 57 | C F : MODEL DEPTH IS MEAN OF INPUT TOPOGRAPH DEPTH IN GRID CELL. 58 | C L_OBSTRUCTION F : OBSTRUCTION FACTORS DUE TO SUB-GRID FEATURES 59 | C ARE NOT USED (DEFAULT) 60 | C T : OBSTRUCTIONN FACTORS DUE TO SUB-GRID FEATURES 61 | C ARE USED. INPUT TOPOGRAPHY HAS BE 62 | C etopo2_2006apr.dat and reference_levels. 63 | C 64 | C REDUCED L_INTERPOL L_OBSTRUCTION 65 | C---------- ---------- ---------- 66 | F t F 67 | C 68 | C DEFAULT: IF ALL VALUES ARE BLANK, THE GRID OF THE TOPOGRAPHY DATA SET 69 | C IS USED AS MODEL GRID. 70 | C SOUTH SOUTHERN LONGITUDE OF GRID 71 | C NORTH NORTHERN LONGITUDE OF GRID 72 | C WEST WESTERN LATITUDE OF GRID 73 | C EAST EASTERN LATITUDE OF GRID 74 | C COORDINATE FORMAT: REAL F13.8 [DEG] OR 75 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 76 | C 77 | C SOUTH NORTH WEST EAST 78 | C------------- ------------- ------------- ------------- 79 | 1.000 6.000 8.000 13.000 80 | C 81 | C NX INTEGER NUMBER OF LATITUDES. 82 | C NY INTEGER NUMBER OF LONGITUDES. 83 | C XDELLA GRID INCREMENT FOR LATITUDE. 84 | C XDELLO GRID INCREMENT FOR LONGITUDE. 85 | C COORDINATE FORMAT: REAL F13.8 [DEG] OR 86 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 87 | C 88 | C NX NY XDELLA XDELLO 89 | C------------- ------------- ------------- ------------- 90 | 0.125 0.125 91 | C 92 | C LAND REAL DEPTH >= LAND ARE SEAPOINTS [M]. (DEFAULT 0) 93 | C 94 | C LAND 95 | C---------- 96 | 10. 97 | C 98 | C ------------------------------------------------------------------------------ 99 | C 100 | C 3. AREAS TO BE CHANGED IN GRID: 101 | C 102 | C SPECIFY A LIST WITH UP TO 20 AREAS. 103 | C 104 | C XOUTS SOUTHERN-MOST LATITUDE. 105 | C XOUTN NORTHERN-MOST LATITUDE. 106 | C XOUTW WESTERN-MOST LONGITUDE. 107 | C XOUTE EASTERN-MOST LONGITUDE. 108 | C COORDINATE FORMAT: REAL F13.8 [DEG] OR 109 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 110 | C XOUTD REAL NEW DEPTH [M] (VALUES >= LAND ARE SEA POINTS) 111 | C 112 | C XOUTS XOUTN XOUTW XOUTE XOUTD 113 | C------------- ------------- ------------- ------------- ---------- 114 | -9.500 10.500 0.500 19.500 15.0 115 | C 116 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 117 | C 118 | C ------------------------------------------------------------------------------ 119 | C 120 | C 4. MODEL OPTIONS: 121 | C 122 | C ITEST INTEGER TEST OUTPUT LEVEL (DEFAULT 0) 123 | C 124 | C ITEST 125 | C------ 126 | 10 127 | C 128 | C ------------------------------------------------------------------------------ 129 | C 130 | C 5. NESTED GRIDS: 131 | C 132 | C FOR A COARSE GRID RUN SPECIFY FOR EACH NEST: 133 | C SOUTH SOUTHERN LONGITUDE OF NEST. 134 | C NORTH NORTHERN LONGITUDE OF NEST. 135 | C WEST WESTERN LATITUDE OF NEST. 136 | C EAST EASTERN LATITUDE OF NEST. 137 | C COORDINATE FORMAT: REAL F13.8 [DEG] OR 138 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 139 | C NEST_NAME CHARACTER NAME OF NEST 140 | C AOB INTEGER (I3) ascii (1) or binary (DEFLAUT) OUTPUT 141 | C 142 | C SOUTH NORTH WEST EAST NEST_NAME AOB 143 | C------------- ------------- ------------- ------------- ---------+---------+--+ 144 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 145 | C 146 | C FOR A FINE GRID RUN SPECIFY: 147 | C PREPROC OUTPUT FILE NAME FROM THE COARSE GRID PREPROC. 148 | C IF A BLANK LINE IS GIVEN A FINE GRID IS NOT GENERATED. 149 | C 150 | C PREPROC OUTPUT FILE NAME FROM THE COARSE GRID PREPROC. 151 | C---------+---------+---------+---------+---------+---------+---------+--------- 152 | Grid_info_COARSE_GRID 153 | C 154 | C ------------------------------------------------------------------------------ 155 | C 156 | C 6. INPUT AND OUTPUT FILE NAMES: 157 | C 158 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 159 | C DEFINED IN PROGRAM PREPROC: 160 | C 161 | C UNIT = IU05 = 5 FILE = 'Preproc_User' TO READ THIS INPUT FILE. 162 | C UNIT = IU06 = 6 FILE = 'Preproc_Prot' TO WRITE A PROTOCOL. 163 | C 164 | C ALL THE FOLLOWING FILES HAVE TO BE DEFINED BELOW. 165 | C 166 | C => TOPOGRAPHIC DATA FILE NAME (DEFAULT: -NONE-). 167 | C---------+---------+---------+---------+---------+---------+---------+--------- 168 | TOPOCAT.DAT 169 | C 170 | C PREPROC OUTPUT FILE NAME (DEFAULT: 'Grid_Info'). 171 | C---------+---------+---------+---------+---------+---------+---------+--------- 172 | Grid_info_fine_2_GRID 173 | C 174 | C ------------------------------------------------------------------------------ 175 | C END OF USER INPUT OF PREPROC 176 | C ------------------------------------------------------------------------------ 177 | -------------------------------------------------------------------------------- /const/Fine_2/ARD/Spectra_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_SPECTRA 3 | C ============================== 4 | C 5 | C **** DATES AND TIME STEPS FOR OUTPUT **** 6 | C 7 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 8 | C WITH THE PRESUMPTIONS THAT: 9 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 10 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 11 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 12 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 13 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 14 | C CONTAINED IN WAM_PRINT_USER_MODULE. 15 | C 16 | C ------------------------------------------------------------------------------ 17 | C 18 | C **** PERIOD OF MODEL RUN **** 19 | C 20 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 21 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 22 | C IDELDO OUTPUT TIME STEP DEFAULT 1 23 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H 24 | C 25 | C CDATEA CDATEE IDELDO U 26 | C-------------- -------------- ------- - 27 | 19780906060000 19780908060000 3 H 28 | C 29 | C ------------------------------------------------------------------------------ 30 | C 31 | C **** OUTPUT AT GIVE TIMES **** 32 | C 33 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 34 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 35 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 36 | C 37 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 38 | C-------------- -------------- -------------- -------------- 39 | C 19780906060000 19780906090000 19780906120000 19780906180000 40 | C 19780907000000 19780907060000 19780907120000 19780907180000 41 | C 19780908000000 19780908060000 42 | C 43 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 44 | C 45 | C ------------------------------------------------------------------------------ 46 | C 47 | C **** OUTPUT SITES **** 48 | C 49 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 50 | C 51 | C XLONG = LONGITUDE IN DEGREE 52 | C XLAT = LATITUDE IN DEGREE 53 | C NAME = SITE NAME (UP TO 20 CHARACTER) 54 | C COORDINATE FORMAT: REAL DEGREES F13.8 OR 55 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 56 | C 57 | C XLONG XLAT NAME 58 | C------------- ------------- ---------+---------+ 59 | 10.00 -9.50 Station 1 60 | 10.00 -9.00 Station 2 61 | 10.00 -8.50 Station 3 62 | 10.00 -8.00 Station 4 63 | 10.00 -7.50 Station 5 64 | 10.00 -7.00 Station 6 65 | 10.00 -5.50 Station 7 66 | 10.00 -5.00 Station 8 67 | 10.00 -4.50 Station 9 68 | 10.00 .00 Station 10 69 | 10.00 1.00 Station 11 70 | 10.00 2.00 Station 12 71 | 10.00 3.00 Station 13 72 | 10.00 4.00 Station 14 73 | 10.00 5.00 Station 15 74 | 10.00 6.00 Station 16 75 | 10.00 10.00 Station 17 76 | C 77 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 78 | C 79 | C ------------------------------------------------------------------------------ 80 | C 81 | C **** SPECTRA TO BE PRINTED **** 82 | C 83 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 84 | C 85 | CP P 86 | C- - 87 | Y SPECTRA OF TOTAL SEA Y SEA SPECTRA 88 | Y SWELL SPECTRA N DUMMY 89 | C 90 | C ------------------------------------------------------------------------------ 91 | C 92 | C **** INPUT DATA FILE **** 93 | C 94 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 95 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 96 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 97 | C 98 | C CDATEF IDELFI U 99 | C-------------- ------- - 100 | 19780906060000 24 H 101 | C 102 | C **** INPUT AND OUTPUT FILE NAMES **** 103 | C 104 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 105 | C DEFINED IN "PRINT_GRID_FILE.f90": 106 | C 107 | C FILE05 = 'Spectra_User' TO READ THIS INPUT FILE. 108 | C FILE06 = 'Spectra_Prot' TO WRITE A PROTOCOL. 109 | C 110 | C => SPECTRA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 111 | C---------+---------+---------+---------+---------+---------+---------+ 112 | OUT2 113 | C ------------------------------------------------------------------------------ 114 | C END OF USER INPUT PROGRAM PRINT_SPECTRA. 115 | C ------------------------------------------------------------------------------ 116 | -------------------------------------------------------------------------------- /const/Fine_2/ARD/Time_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_TIME 3 | C =========================== 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C 17 | C **** PERIOD OF MODEL RUN **** 18 | C 19 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 20 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 21 | C IDELDO OUTPUT TIME STEP DEFAULT 1 22 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 23 | C 24 | C CDATEA CDATEE IDELDO U 25 | C-------------- -------------- ------- - 26 | 19780906060000 19780908060000 1 H 27 | C 28 | C ------------------------------------------------------------------------------ 29 | C 30 | C **** OUTPUT SITES **** 31 | C 32 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 33 | C 34 | C XLONG = LONGITUDE IN DEGREE 35 | C XLAT = LATITUDE IN DEGREE 36 | C NAME = SITE NAME (UP TO 20 CHARACTER) 37 | C COORDINATE FORMAT: REAL DEGREES F13.8 OR 38 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 39 | C 40 | C XLONG XLAT NAME 41 | C------------- ------------- ---------+---------+ 42 | 10.00 -9.50 Station 1 43 | 10.00 -9.00 Station 2 44 | 10.00 -8.50 Station 3 45 | 10.00 -8.00 Station 4 46 | 10.00 -7.50 Station 5 47 | 10.00 -7.00 Station 6 48 | 10.00 -5.50 Station 7 49 | 10.00 -5.00 Station 8 50 | 10.00 -4.50 Station 9 51 | 10.00 .00 Station 10 52 | 10.00 1.00 Station 11 53 | 10.00 2.00 Station 12 54 | 10.00 3.00 Station 13 55 | 10.00 4.00 Station 14 56 | 10.00 5.00 Station 15 57 | 10.00 6.00 Station 16 58 | 10.00 10.00 Station 17 59 | C 60 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 61 | C 62 | C ------------------------------------------------------------------------------ 63 | C 64 | C **** INPUT DATA FILE **** 65 | C 66 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 67 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 68 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 69 | C 70 | C CDATEF IDELFI U 71 | C-------------- ------- - 72 | 19780906060000 24 H 73 | C 74 | C **** INPUT AND OUTPUT FILE NAMES **** 75 | C 76 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 77 | C DEFINED IN "PRINT_TIME.f90": 78 | C 79 | C FILE05 = 'Time_User' TO READ THIS INPUT FILE. 80 | C FILE06 = 'Time_Prot' TO WRITE A PROTOCOL. 81 | C 82 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 83 | C---------+---------+---------+---------+---------+---------+---------+ 84 | MAP2 85 | C ------------------------------------------------------------------------------ 86 | C END OF USER INPUT PROGRAM PRINT_TIME. 87 | C ------------------------------------------------------------------------------ 88 | -------------------------------------------------------------------------------- /const/Fine_2/JAN/Grid_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_GRID_FILE 3 | C ================================ 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C **** PERIOD OF MODEL RUN **** 17 | C 18 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 19 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 20 | C IDELDO OUTPUT TIME STEP DEFAULT 1 21 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 22 | C 23 | C CDATEA CDATEE IDELDO U 24 | C-------------- -------------- ------- - 25 | 19780906060000 19780908060000 3 H 26 | C 27 | C ------------------------------------------------------------------------------ 28 | C 29 | C **** OUTPUT AT GIVE TIMES **** 30 | C 31 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 32 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 33 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 34 | C 35 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 36 | C-------------- -------------- -------------- -------------- 37 | C 19780906060000 19780906090000 19780906120000 19780906180000 38 | C 19780907000000 19780907060000 19780907120000 19780907180000 39 | C 19780908000000 19780908060000 40 | C 41 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 42 | C 43 | C ------------------------------------------------------------------------------ 44 | C 45 | C **** PARAMETERS TO BE PRINTED **** 46 | C 47 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 48 | C 49 | CP P 50 | C- - 51 | Y WIND SPEED U10 Y WIND DIRECTION 52 | Y FRICTION VELOCITY Y DRAG COEFFICIENT 53 | Y CHARNOCK PARAMETER Y WATER DEPTH 54 | Y CURRENT SPEED Y CURRENT DIRECTION 55 | C 56 | Y SIGNIFICANT WAVE HEIGHT Y WAVE PEAK PERIOD 57 | Y WAVE MEAN PERIOD Y WAVE TM1 PERIOD 58 | Y WAVE TM2 PERIOD Y WAVE DIRECTION 59 | Y DIRECTIONAL SPREAD Y NORMALISED WAVE STRESS 60 | C 61 | Y SEA SIGNIFICANT WAVE HEIGHT Y SEA PEAK PERIOD 62 | Y SEA MEAN PERIOD Y SEA TM1 PERIOD 63 | Y SEA TM2 PERIOD Y SEA DIRECTION 64 | Y SEA DIRECTIONAL SPREAD N DUMMY 65 | C 66 | Y SWELL SIGNIFICANT WAVE HEIGHT Y SWELL PEAK PERIOD 67 | Y SWELL MEAN PERIOD Y SWELL TM1 PERIOD 68 | Y SWELL TM2 PERIOD Y SWELL DIRECTION 69 | Y SWELL DIRECTIONAL SPREAD Y ROUGHNESS LENGTH Z0 70 | C 71 | Y GODA PEAKEDNESS PARAMETER Y KURTOSISY 72 | Y BENJAMIN-FEIR INDEX Y NORMALIZED MAXIMUM WAVE HEIGHT 73 | Y MAXIMUM WAVE PERIOD Y PEAK FREQUENCY (INTERPOLATED) 74 | Y PEAK DIRECTION Y MEAN SQUARE SLOPE 75 | C 76 | Y FIRST SWELL SIG. WAVE HEIGHT Y FIRST SWELL TM1 PERIOD 77 | Y FIRST SWELL DIRECTION Y SECOND SWELL SIG. WAVE HEIGHT 78 | Y SECOND SWELL TM1 PERIOD Y SECOND SWELL DIRECTION 79 | Y THIRD SWELL SIG. WAVE HEIGHT Y THIRD SWELL TM1 PERIOD 80 | Y THIRD SWELL DIRECTION N DUMMY 81 | C 82 | Y RADIATION STRESS TENSOR SXX Y RADIATION STRESS TENSOR SYY 83 | Y RADIATION STRESS TENSOR SXY Y DUMMY 84 | Y X-COMP. WAVE FORCE Y Y-COMP. WAVE FORCE 85 | Y X-COMP. STOKES DRIFT Y Y-COMP. STOKES DRIFT 86 | Y ENERGY FLUX TO OCEAN Y TOTAL ENERGY FLUX FROM WIND TO WAVES 87 | Y X-COMP.MOMENTUM FLUX INTO OCEAN Y Y-COMP. MOMENTUM FLUX INTO OCEAN 88 | Y ENERGY FLUX INTO BOTTOM Y X-COMP. MOMENTUM FLUX INTO BOT. 89 | Y Y-COMP.MOMENTUM FLUX INTO BOT. Y DUMMY 90 | C 91 | Y CRMAX (TIME, FORRISTAL) Y HMAX (TIME, NAESS) 92 | Y CRMAX (SPACE-TIME (STQD)) Y HMAX (SPACE-TIME (STQD)) 93 | C 94 | C ------------------------------------------------------------------------------ 95 | C 96 | C REGULAR INTEROPLATE REDUCED TO REGULAR GRID: 97 | C N OR n : NO INTERPOLATION DEFAULT: Y: INTERPOLATION 98 | C 99 | C REGULAR 100 | C---------- 101 | Y 102 | C 103 | C ------------------------------------------------------------------------------ 104 | C 105 | C **** INPUT DATA FILE **** 106 | C 107 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 108 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 109 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 110 | C 111 | C CDATEF IDELFI U 112 | C-------------- ------- - 113 | 19780906060000 24 H 114 | C 115 | C **** INPUT AND OUTPUT FILE NAMES **** 116 | C 117 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 118 | C DEFINED IN "PRINT_GRID_FILE.f90": 119 | C 120 | C FILE05 = 'Grid_User' TO READ THIS INPUT FILE. 121 | C FILE06 = 'Grid_Prot' TO WRITE A PROTOCOL. 122 | C 123 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 124 | C---------+---------+---------+---------+---------+---------+---------+ 125 | MAP2 126 | C ------------------------------------------------------------------------------ 127 | C END OF USER INPUT PROGRAM PRINT_GRID. 128 | C ------------------------------------------------------------------------------ 129 | -------------------------------------------------------------------------------- /const/Fine_2/JAN/Spectra_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_SPECTRA 3 | C ============================== 4 | C 5 | C **** DATES AND TIME STEPS FOR OUTPUT **** 6 | C 7 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 8 | C WITH THE PRESUMPTIONS THAT: 9 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 10 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 11 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 12 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 13 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 14 | C CONTAINED IN WAM_PRINT_USER_MODULE. 15 | C 16 | C ------------------------------------------------------------------------------ 17 | C 18 | C **** PERIOD OF MODEL RUN **** 19 | C 20 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 21 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 22 | C IDELDO OUTPUT TIME STEP DEFAULT 1 23 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H 24 | C 25 | C CDATEA CDATEE IDELDO U 26 | C-------------- -------------- ------- - 27 | 19780906060000 19780908060000 3 H 28 | C 29 | C ------------------------------------------------------------------------------ 30 | C 31 | C **** OUTPUT AT GIVE TIMES **** 32 | C 33 | C SPECIFY A LIST WITH UP TO 20 DATES (YYYYMMDDHHMMSS) AND CLOSE THE 34 | C LIST BY 'END'. IF THE LIST INCLUDES ANYTHING ELSE THAN 'END' 35 | C THE OUTPUT TIME STEPS IDELINT AND IDELSPT SPECIFIED ABOVE ARE IGNORED. 36 | C 37 | CYYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS YYYYMMDDHHMMSS 38 | C-------------- -------------- -------------- -------------- 39 | C 19780906060000 19780906090000 19780906120000 19780906180000 40 | C 19780907000000 19780907060000 19780907120000 19780907180000 41 | C 19780908000000 19780908060000 42 | C 43 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 44 | C 45 | C ------------------------------------------------------------------------------ 46 | C 47 | C **** OUTPUT SITES **** 48 | C 49 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 50 | C 51 | C XLONG = LONGITUDE IN DEGREE 52 | C XLAT = LATITUDE IN DEGREE 53 | C NAME = SITE NAME (UP TO 20 CHARACTER) 54 | C COORDINATE FORMAT: REAL DEGREES F13.8 OR 55 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 56 | C 57 | C XLONG XLAT NAME 58 | C------------- ------------- ---------+---------+ 59 | 10.00 -9.50 Station 1 60 | 10.00 -9.00 Station 2 61 | 10.00 -8.50 Station 3 62 | 10.00 -8.00 Station 4 63 | 10.00 -7.50 Station 5 64 | 10.00 -7.00 Station 6 65 | 10.00 -5.50 Station 7 66 | 10.00 -5.00 Station 8 67 | 10.00 -4.50 Station 9 68 | 10.00 .00 Station 10 69 | 10.00 1.00 Station 11 70 | 10.00 2.00 Station 12 71 | 10.00 3.00 Station 13 72 | 10.00 4.00 Station 14 73 | 10.00 5.00 Station 15 74 | 10.00 6.00 Station 16 75 | 10.00 10.00 Station 17 76 | C 77 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 78 | C 79 | C ------------------------------------------------------------------------------ 80 | C 81 | C **** SPECTRA TO BE PRINTED **** 82 | C 83 | C P PRINT OUTPUT: N OR n : NO OUTPUT , DEFAULT Y : OUTPUT 84 | C 85 | CP P 86 | C- - 87 | Y SPECTRA OF TOTAL SEA Y SEA SPECTRA 88 | Y SWELL SPECTRA N DUMMY 89 | C 90 | C ------------------------------------------------------------------------------ 91 | C 92 | C **** INPUT DATA FILE **** 93 | C 94 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 95 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 96 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 97 | C 98 | C CDATEF IDELFI U 99 | C-------------- ------- - 100 | 19780906060000 24 H 101 | C 102 | C **** INPUT AND OUTPUT FILE NAMES **** 103 | C 104 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 105 | C DEFINED IN "PRINT_GRID_FILE.f90": 106 | C 107 | C FILE05 = 'Spectra_User' TO READ THIS INPUT FILE. 108 | C FILE06 = 'Spectra_Prot' TO WRITE A PROTOCOL. 109 | C 110 | C => SPECTRA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 111 | C---------+---------+---------+---------+---------+---------+---------+ 112 | OUT2 113 | C ------------------------------------------------------------------------------ 114 | C END OF USER INPUT PROGRAM PRINT_SPECTRA. 115 | C ------------------------------------------------------------------------------ 116 | -------------------------------------------------------------------------------- /const/Fine_2/JAN/Time_User: -------------------------------------------------------------------------------- 1 | C 2 | C INPUT OF PROGRAM PRINT_TIME 3 | C =========================== 4 | C 5 | C USER INFORMATION IS BEING READ BY SUB. READ__WAM_USER 6 | C WITH THE PRESUMPTIONS THAT: 7 | C 1. EVERY LINE STARTING WITH 'C' OR 'c' IS A COMMENT LINE 8 | C 2. VALUES ARE PUT IN BELOW POSITIONS INDICATED WITH '-' 9 | C 3. IF VALUES ARE NOT SPECIFIED DEFAULT VALUES WILL BE USED. 10 | C 4. VALUES MARKED BY C => MUST BE DEFINED BY THE USER. 11 | C 5. DEFAULT VALUES ARE DEFINED BY SUB. CLEAR_PRINT_USER_MODULE 12 | C CONTAINED IN WAM_PRINT_USER_MODULE. 13 | C 14 | C ------------------------------------------------------------------------------ 15 | C 16 | C 17 | C **** PERIOD OF MODEL RUN **** 18 | C 19 | C => CDATEA START DATE OF RUN (YYYYMMDDHHMMSS) 20 | C => CDATEE END DATE OF RUN (YYYYMMDDHHMMSS) 21 | C IDELDO OUTPUT TIME STEP DEFAULT 1 22 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 23 | C 24 | C CDATEA CDATEE IDELDO U 25 | C-------------- -------------- ------- - 26 | 19780906060000 19780908060000 1 H 27 | C 28 | C ------------------------------------------------------------------------------ 29 | C 30 | C **** OUTPUT SITES **** 31 | C 32 | C SPECIFY A LIST WITH UP TO 20 SITES AND CLOSE THE LIST BY 'END'. 33 | C 34 | C XLONG = LONGITUDE IN DEGREE 35 | C XLAT = LATITUDE IN DEGREE 36 | C NAME = SITE NAME (UP TO 20 CHARACTER) 37 | C COORDINATE FORMAT: REAL DEGREES F13.8 OR 38 | C TEXTSTRING -DDD:MM:SS.SS OR +DDD:MM:SS.SS 39 | C 40 | C XLONG XLAT NAME 41 | C------------- ------------- ---------+---------+ 42 | 10.00 -9.50 Station 1 43 | 10.00 -9.00 Station 2 44 | 10.00 -8.50 Station 3 45 | 10.00 -8.00 Station 4 46 | 10.00 -7.50 Station 5 47 | 10.00 -7.00 Station 6 48 | 10.00 -5.50 Station 7 49 | 10.00 -5.00 Station 8 50 | 10.00 -4.50 Station 9 51 | 10.00 .00 Station 10 52 | 10.00 1.00 Station 11 53 | 10.00 2.00 Station 12 54 | 10.00 3.00 Station 13 55 | 10.00 4.00 Station 14 56 | 10.00 5.00 Station 15 57 | 10.00 6.00 Station 16 58 | 10.00 10.00 Station 17 59 | C 60 | END THE INPUT LIST HAS TO BE CLOSED BY THIS END LINE 61 | C 62 | C ------------------------------------------------------------------------------ 63 | C 64 | C **** INPUT DATA FILE **** 65 | C 66 | C => CDATEF DATE OF FIRST FILE NAME (YYYYMMDDHHMMSS) 67 | C IDELFI FILE TIME STEP (IF <=0 A NEW FILE IS NOT USED); DEFAULT 24 68 | C U TIME UNIT: M OR m MINUTE; H OR h HOUR; DEFAULT H. 69 | C 70 | C CDATEF IDELFI U 71 | C-------------- ------- - 72 | 19780906060000 24 H 73 | C 74 | C **** INPUT AND OUTPUT FILE NAMES **** 75 | C 76 | C THE PROGRAM OPENS AUTOMATICALLY THE FOLLOWING FILES, WHICH ARE 77 | C DEFINED IN "PRINT_TIME.f90": 78 | C 79 | C FILE05 = 'Time_User' TO READ THIS INPUT FILE. 80 | C FILE06 = 'Time_Prot' TO WRITE A PROTOCOL. 81 | C 82 | C => INTEGRATED DATA FILE IDENTIFIER (UNIT = IU01, UNFORMATED INPUT) 83 | C---------+---------+---------+---------+---------+---------+---------+ 84 | MAP2 85 | C ------------------------------------------------------------------------------ 86 | C END OF USER INPUT PROGRAM PRINT_TIME. 87 | C ------------------------------------------------------------------------------ 88 | -------------------------------------------------------------------------------- /const/Fine_2/JAN/nlnetcdf: -------------------------------------------------------------------------------- 1 | &nlnetcdf 2 | cdatea = '19780906060000', 3 | cdatee = '19780908060000', 4 | ideldo = 3, !! output time step 5 | cflag_p = T,T,F,F,F,F,F,F, T,T,T,T,T,T,F,F, T,F,F,F,F,T,F,F, T,F,F,F,F,T,F,T, F,F,F,F,F,F,F,F, 6 | F,F,F,F,F,F,F,F,F,F, F,F,F,F,F,F,T,T, T,T,T,T,T,T,T,F, T,T,T,T 7 | cdtfile = '19780906060000', 8 | idfile = 24, !! MAP-file time step 9 | file01 = '../fine_2/MAP2', 10 | xdello = 0.125, 11 | xdella = 0.125, 12 | iredu = 0 !! 0: regular grid, 1: reduced grid 13 | /end 14 | -------------------------------------------------------------------------------- /const/READme_all.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/const/READme_all.docx -------------------------------------------------------------------------------- /const/TOPO_INPUT.DAT: -------------------------------------------------------------------------------- 1 | -80.0 80.0 0.0 270.0 90.0 160.0 2 4 0 2 | 19780906060000 3 | -90.000 -90.000 -90.000 -90.000 4 | 90.000 90.000 90.000 90.000 5 | 19780906120000 6 | 30.000 30.000 30.000 30.000 7 | 30.000 30.000 30.000 30.000 8 | 19780906180000 9 | 90.000 90.000 90.000 90.000 10 | -90.000 -90.000 -90.000 -90.000 11 | 19780907000000 12 | 30.000 30.000 30.000 30.000 13 | 30.000 30.000 30.000 30.000 14 | 19780907060000 15 | -90.000 -90.000 -90.000 -90.000 16 | 90.000 90.000 90.000 90.000 17 | 19780907120000 18 | 30.000 30.000 30.000 30.000 19 | 30.000 30.000 30.000 30.000 20 | 19780907180000 21 | 90.000 90.000 90.000 90.000 22 | -90.000 -90.000 -90.000 -90.000 23 | 19780908000000 24 | 30.000 30.000 30.000 30.000 25 | 30.000 30.000 30.000 30.000 26 | 19780908060000 27 | -90.000 -90.000 -90.000 -90.000 28 | 90.000 90.000 90.000 90.000 29 | 19780908120000 30 | 30.000 30.000 30.000 30.000 31 | 30.000 30.000 30.000 30.000 32 | 19780908180000 33 | 90.000 90.000 90.000 90.000 34 | -90.000 -90.000 -90.000 -90.000 35 | -------------------------------------------------------------------------------- /const/WIND_INPUT.DAT: -------------------------------------------------------------------------------- 1 | -80.0 80.0 0.0 270.0 90.0 160.0 2 4 3 2 | 19780906060000 3 | 0.000 0.000 0.000 0.000 4 | 0.000 0.000 0.000 0.000 5 | 18.450 18.450 18.450 18.450 6 | 18.450 18.450 18.450 18.450 7 | 19780906120000 8 | 0.000 0.000 0.000 0.000 9 | 0.000 0.000 0.000 0.000 10 | 18.450 18.450 18.450 18.450 11 | 18.450 18.450 18.450 18.450 12 | 19780906180000 13 | 0.000 0.000 0.000 0.000 14 | 0.000 0.000 0.000 0.000 15 | 18.450 18.450 18.450 18.450 16 | 18.450 18.450 18.450 18.450 17 | 19780907000000 18 | 0.000 0.000 0.000 0.000 19 | 0.000 0.000 0.000 0.000 20 | 18.450 18.450 18.450 18.450 21 | 18.450 18.450 18.450 18.450 22 | 19780907060000 23 | 0.000 0.000 0.000 0.000 24 | 0.000 0.000 0.000 0.000 25 | 18.450 18.450 18.450 18.450 26 | 18.450 18.450 18.450 18.450 27 | 19780907120000 28 | 0.000 0.000 0.000 0.000 29 | 0.000 0.000 0.000 0.000 30 | 18.450 18.450 18.450 18.450 31 | 18.450 18.450 18.450 18.450 32 | 19780907180000 33 | 0.000 0.000 0.000 0.000 34 | 0.000 0.000 0.000 0.000 35 | 18.450 18.450 18.450 18.450 36 | 18.450 18.450 18.450 18.450 37 | 19780908000000 38 | 0.000 0.000 0.000 0.000 39 | 0.000 0.000 0.000 0.000 40 | 18.450 18.450 18.450 18.450 41 | 18.450 18.450 18.450 18.450 42 | 19780908060000 43 | 0.000 0.000 0.000 0.000 44 | 0.000 0.000 0.000 0.000 45 | 18.450 18.450 18.450 18.450 46 | 18.450 18.450 18.450 18.450 47 | 19780908120000 48 | 0.000 0.000 0.000 0.000 49 | 0.000 0.000 0.000 0.000 50 | 18.450 18.450 18.450 18.450 51 | 18.450 18.450 18.450 18.450 52 | 19780908180000 53 | 0.000 0.000 0.000 0.000 54 | 0.000 0.000 0.000 0.000 55 | 18.450 18.450 18.450 18.450 56 | 18.450 18.450 18.450 18.450 57 | -------------------------------------------------------------------------------- /dayfiles/pnetcdf_prot_coarse_ARD: -------------------------------------------------------------------------------- 1 | +++ read namelist successfully ! 2 | +++ grid is a regular one ! 3 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 4 | ../coarse/ARD/MAP19780906060000 5 | 6 | +++ 7 | +++ NetCDF file has been opened - name is: WAVE1978090606.nc 8 | +++ 9 | +++ idelint, nx, ny, amosop, amowep, xdella, xdello : 10800 41 10 | 41 -9.500000 0.0000000E+00 0.5000000 0.5000000 11 | T T WIND SPEED U10 ( METRES/SECOND ) 12 | T T WIND DIRECTION ( DEGREE FROM NORTH TO ) 13 | T F FRICTION VELOCITY ( METRES/SECOND ) 14 | T F DRAG COEFFICIENT ( PROMILLE ) 15 | T F CHARNOCK PARAMETER 16 | F F WATER DEPTH (METRES) (DEEPER THAN 999M ARE PRINTED AS 999) 17 | F F CURRENT SPEED ( METRES/SECOND ) 18 | F F CURRENT DIRECTION ( DEGREE FROM NORTH TO ) 19 | T T SIGNIFICANT WAVE HEIGHT ( METRES ) 20 | T T WAVE PEAK PERIOD ( SECONDS ) 21 | T T WAVE MEAN PERIOD (SECONDS ) 22 | T T WAVE TM1 PERIOD ( SECONDS ) 23 | T T WAVE TM2 PERIOD ( SECONDS ) 24 | T T WAVE DIRECTION ( DEGREE FROM NORTH TO ) 25 | T F DIRECTIONAL SPREAD ( DEGREES ) 26 | T F NORMALISED WAVE STRESS ( % ) 27 | T T SEA SIGNIFICANT WAVE HEIGHT ( METRES ) 28 | T F SEA PEAK PERIOD ( SECONDS ) 29 | T F SEA MEAN PERIOD ( SECONDS ) 30 | T F SEA TM1 PERIOD ( SECONDS ) 31 | T F SEA TM2 PERIOD ( SECONDS ) 32 | T T SEA DIRECTION ( DEGREE FROM NORTH TO ) 33 | T F SEA DIRECTIONAL SPREAD ( DEGREES ) 34 | F F DUMMY 35 | T T SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 36 | T F SWELL PEAK PERIOD ( SECONDS ) 37 | T F SWELL MEAN PERIOD ( SECONDS ) 38 | T F SWELL TM1 PERIOD ( SECONDS ) 39 | T F SWELL TM2 PERIOD ( SECONDS ) 40 | T T SWELL DIRECTION ( DEGREE FROM NORTH TO ) 41 | T F SWELL DIRECTIONAL SPREAD ( DEGREES ) 42 | T T ROUGHNESS LENGTH Z0 ( METRES ) 43 | T F GODA PEAKEDNESS PARAMETER 44 | T F KURTOSIS 45 | T F BENJAMIN-FEIR INDEX 46 | T F NORMALIZED MAXIMUM WAVE HEIGHT 47 | T F MAXIMUM WAVE PERIOD ( SECONDS ) 48 | T F PEAK FREQUENCY (INTERPOLATED) ( HZ ) 49 | T F PEAK DIRECTION ( DEGREE FROM NORTH TO ) 50 | T F MEAN SQUARE SLOPE 51 | T F FIRST SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 52 | T F FIRST SWELL TM1 PERIOD ( SECONDS ) 53 | T F FIRST SWELL DIRECTION ( DEGREE FROM NORTH TO ) 54 | T F SECOND SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 55 | T F SECOND SWELL TM1 PERIOD ( SECONDS ) 56 | T F SECOND SWELL DIRECTION ( DEGREE FROM NORTH TO ) 57 | T F THIRD SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 58 | T F THIRD SWELL TM1 PERIOD ( SECONDS ) 59 | T F THIRD SWELL DIRECTION ( DEGREE FROM NORTH TO ) 60 | F F DUMMY 61 | T F RADIATION STRESS TENSOR SXX ( KG/S/S ) 62 | T F RADIATION STRESS TENSOR SYY ( KG/S/S ) 63 | T F RADIATION STRESS TENSOR SXY ( KG/S/S ) 64 | F F DUMMY 65 | T F X-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 66 | T F Y-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 67 | T T X-COMP. STOKES DRIFT ( M/S ) 68 | T T Y-COMP. STOKES DRIFT ( M/S ) 69 | T T ENERGY FLUX TO OCEAN ( KG/S/S/S ) 70 | T T TOTAL ENERGY FLUX FROM WIND TO WAVES ( KG/S/S/S ) 71 | T T X-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 72 | T T Y-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 73 | T T ENERGY FLUX FROM WAVES TO BOTTOM ( KG/S/S/S ) 74 | T T X-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 75 | T T Y-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 76 | F F DUMMY 77 | T T CREST MAX (TIME, FORRISTALL) 78 | T T HMAX (TIME, NAESS) 79 | T T MAXIMUM CREST H.- SPACE-TIME (STQD) 80 | T T MAXIMUM WAVE H.- SPACE-TIME (STQD) 81 | 82 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 83 | ../coarse/ARD/MAP19780907060000 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 93 | ../coarse/ARD/MAP19780908060000 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | -------------------------------------------------------------------------------- /dayfiles/pnetcdf_prot_coarse_JAN: -------------------------------------------------------------------------------- 1 | +++ read namelist successfully ! 2 | +++ grid is a regular one ! 3 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 4 | ../coarse/JAN/MAP19780906060000 5 | 6 | +++ 7 | +++ NetCDF file has been opened - name is: WAVE1978090606.nc 8 | +++ 9 | +++ idelint, nx, ny, amosop, amowep, xdella, xdello : 10800 41 10 | 41 -9.500000 0.0000000E+00 0.5000000 0.5000000 11 | T T WIND SPEED U10 ( METRES/SECOND ) 12 | T T WIND DIRECTION ( DEGREE FROM NORTH TO ) 13 | T F FRICTION VELOCITY ( METRES/SECOND ) 14 | T F DRAG COEFFICIENT ( PROMILLE ) 15 | T F CHARNOCK PARAMETER 16 | F F WATER DEPTH (METRES) (DEEPER THAN 999M ARE PRINTED AS 999) 17 | F F CURRENT SPEED ( METRES/SECOND ) 18 | F F CURRENT DIRECTION ( DEGREE FROM NORTH TO ) 19 | T T SIGNIFICANT WAVE HEIGHT ( METRES ) 20 | T T WAVE PEAK PERIOD ( SECONDS ) 21 | T T WAVE MEAN PERIOD (SECONDS ) 22 | T T WAVE TM1 PERIOD ( SECONDS ) 23 | T T WAVE TM2 PERIOD ( SECONDS ) 24 | T T WAVE DIRECTION ( DEGREE FROM NORTH TO ) 25 | T F DIRECTIONAL SPREAD ( DEGREES ) 26 | T F NORMALISED WAVE STRESS ( % ) 27 | T T SEA SIGNIFICANT WAVE HEIGHT ( METRES ) 28 | T F SEA PEAK PERIOD ( SECONDS ) 29 | T F SEA MEAN PERIOD ( SECONDS ) 30 | T F SEA TM1 PERIOD ( SECONDS ) 31 | T F SEA TM2 PERIOD ( SECONDS ) 32 | T T SEA DIRECTION ( DEGREE FROM NORTH TO ) 33 | T F SEA DIRECTIONAL SPREAD ( DEGREES ) 34 | F F DUMMY 35 | T T SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 36 | T F SWELL PEAK PERIOD ( SECONDS ) 37 | T F SWELL MEAN PERIOD ( SECONDS ) 38 | T F SWELL TM1 PERIOD ( SECONDS ) 39 | T F SWELL TM2 PERIOD ( SECONDS ) 40 | T T SWELL DIRECTION ( DEGREE FROM NORTH TO ) 41 | T F SWELL DIRECTIONAL SPREAD ( DEGREES ) 42 | T T ROUGHNESS LENGTH Z0 ( METRES ) 43 | T F GODA PEAKEDNESS PARAMETER 44 | T F KURTOSIS 45 | T F BENJAMIN-FEIR INDEX 46 | T F NORMALIZED MAXIMUM WAVE HEIGHT 47 | T F MAXIMUM WAVE PERIOD ( SECONDS ) 48 | T F PEAK FREQUENCY (INTERPOLATED) ( HZ ) 49 | T F PEAK DIRECTION ( DEGREE FROM NORTH TO ) 50 | T F MEAN SQUARE SLOPE 51 | T F FIRST SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 52 | T F FIRST SWELL TM1 PERIOD ( SECONDS ) 53 | T F FIRST SWELL DIRECTION ( DEGREE FROM NORTH TO ) 54 | T F SECOND SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 55 | T F SECOND SWELL TM1 PERIOD ( SECONDS ) 56 | T F SECOND SWELL DIRECTION ( DEGREE FROM NORTH TO ) 57 | T F THIRD SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 58 | T F THIRD SWELL TM1 PERIOD ( SECONDS ) 59 | T F THIRD SWELL DIRECTION ( DEGREE FROM NORTH TO ) 60 | F F DUMMY 61 | T F RADIATION STRESS TENSOR SXX ( KG/S/S ) 62 | T F RADIATION STRESS TENSOR SYY ( KG/S/S ) 63 | T F RADIATION STRESS TENSOR SXY ( KG/S/S ) 64 | F F DUMMY 65 | T F X-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 66 | T F Y-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 67 | T T X-COMP. STOKES DRIFT ( M/S ) 68 | T T Y-COMP. STOKES DRIFT ( M/S ) 69 | T T ENERGY FLUX TO OCEAN ( KG/S/S/S ) 70 | T T TOTAL ENERGY FLUX FROM WIND TO WAVES ( KG/S/S/S ) 71 | T T X-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 72 | T T Y-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 73 | T T ENERGY FLUX FROM WAVES TO BOTTOM ( KG/S/S/S ) 74 | T T X-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 75 | T T Y-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 76 | F F DUMMY 77 | T T CREST MAX (TIME, FORRISTALL) 78 | T T HMAX (TIME, NAESS) 79 | T T MAXIMUM CREST H.- SPACE-TIME (STQD) 80 | T T MAXIMUM WAVE H.- SPACE-TIME (STQD) 81 | 82 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 83 | ../coarse/JAN/MAP19780907060000 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 93 | ../coarse/JAN/MAP19780908060000 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | -------------------------------------------------------------------------------- /dayfiles/pnetcdf_prot_fine1: -------------------------------------------------------------------------------- 1 | +++ read namelist successfully ! 2 | +++ grid is a regular one ! 3 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 4 | ../fine_1/MAP119780906060000 5 | 6 | +++ 7 | +++ NetCDF file has been opened - name is: WAVE1978090606.nc 8 | +++ 9 | +++ idelint, nx, ny, amosop, amowep, xdella, xdello : 10800 31 10 | 16 5.0000001E-02 5.300000 0.3330000 0.3330000 11 | T T WIND SPEED U10 ( METRES/SECOND ) 12 | T T WIND DIRECTION ( DEGREE FROM NORTH TO ) 13 | T F FRICTION VELOCITY ( METRES/SECOND ) 14 | T F DRAG COEFFICIENT ( PROMILLE ) 15 | T F CHARNOCK PARAMETER 16 | F F WATER DEPTH (METRES) (DEEPER THAN 999M ARE PRINTED AS 999) 17 | F F CURRENT SPEED ( METRES/SECOND ) 18 | F F CURRENT DIRECTION ( DEGREE FROM NORTH TO ) 19 | T T SIGNIFICANT WAVE HEIGHT ( METRES ) 20 | T T WAVE PEAK PERIOD ( SECONDS ) 21 | T T WAVE MEAN PERIOD (SECONDS ) 22 | T T WAVE TM1 PERIOD ( SECONDS ) 23 | T T WAVE TM2 PERIOD ( SECONDS ) 24 | T T WAVE DIRECTION ( DEGREE FROM NORTH TO ) 25 | T F DIRECTIONAL SPREAD ( DEGREES ) 26 | T F NORMALISED WAVE STRESS ( % ) 27 | T T SEA SIGNIFICANT WAVE HEIGHT ( METRES ) 28 | T F SEA PEAK PERIOD ( SECONDS ) 29 | T F SEA MEAN PERIOD ( SECONDS ) 30 | T F SEA TM1 PERIOD ( SECONDS ) 31 | T F SEA TM2 PERIOD ( SECONDS ) 32 | T T SEA DIRECTION ( DEGREE FROM NORTH TO ) 33 | T F SEA DIRECTIONAL SPREAD ( DEGREES ) 34 | F F DUMMY 35 | T T SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 36 | T F SWELL PEAK PERIOD ( SECONDS ) 37 | T F SWELL MEAN PERIOD ( SECONDS ) 38 | T F SWELL TM1 PERIOD ( SECONDS ) 39 | T F SWELL TM2 PERIOD ( SECONDS ) 40 | T T SWELL DIRECTION ( DEGREE FROM NORTH TO ) 41 | T F SWELL DIRECTIONAL SPREAD ( DEGREES ) 42 | T T ROUGHNESS LENGTH Z0 ( METRES ) 43 | T F GODA PEAKEDNESS PARAMETER 44 | T F KURTOSIS 45 | T F BENJAMIN-FEIR INDEX 46 | T F NORMALIZED MAXIMUM WAVE HEIGHT 47 | T F MAXIMUM WAVE PERIOD ( SECONDS ) 48 | T F PEAK FREQUENCY (INTERPOLATED) ( HZ ) 49 | T F PEAK DIRECTION ( DEGREE FROM NORTH TO ) 50 | T F MEAN SQUARE SLOPE 51 | T F FIRST SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 52 | T F FIRST SWELL TM1 PERIOD ( SECONDS ) 53 | T F FIRST SWELL DIRECTION ( DEGREE FROM NORTH TO ) 54 | T F SECOND SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 55 | T F SECOND SWELL TM1 PERIOD ( SECONDS ) 56 | T F SECOND SWELL DIRECTION ( DEGREE FROM NORTH TO ) 57 | T F THIRD SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 58 | T F THIRD SWELL TM1 PERIOD ( SECONDS ) 59 | T F THIRD SWELL DIRECTION ( DEGREE FROM NORTH TO ) 60 | F F DUMMY 61 | T F RADIATION STRESS TENSOR SXX ( KG/S/S ) 62 | T F RADIATION STRESS TENSOR SYY ( KG/S/S ) 63 | T F RADIATION STRESS TENSOR SXY ( KG/S/S ) 64 | F F DUMMY 65 | T F X-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 66 | T F Y-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 67 | T T X-COMP. STOKES DRIFT ( M/S ) 68 | T T Y-COMP. STOKES DRIFT ( M/S ) 69 | T T ENERGY FLUX TO OCEAN ( KG/S/S/S ) 70 | T T TOTAL ENERGY FLUX FROM WIND TO WAVES ( KG/S/S/S ) 71 | T T X-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 72 | T T Y-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 73 | T T ENERGY FLUX FROM WAVES TO BOTTOM ( KG/S/S/S ) 74 | T T X-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 75 | T T Y-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 76 | F F DUMMY 77 | T T CREST MAX (TIME, FORRISTALL) 78 | T T HMAX (TIME, NAESS) 79 | T T MAXIMUM CREST H.- SPACE-TIME (STQD) 80 | T T MAXIMUM WAVE H.- SPACE-TIME (STQD) 81 | 82 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 83 | ../fine_1/MAP119780907060000 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 93 | ../fine_1/MAP119780908060000 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | -------------------------------------------------------------------------------- /dayfiles/pnetcdf_prot_fine_2: -------------------------------------------------------------------------------- 1 | +++ read namelist successfully ! 2 | +++ grid is a regular one ! 3 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 4 | ../fine_2/MAP219780906060000 5 | 6 | +++ 7 | +++ NetCDF file has been opened - name is: WAVE1978090606.nc 8 | +++ 9 | +++ idelint, nx, ny, amosop, amowep, xdella, xdello : 10800 41 10 | 41 1.000000 8.000000 0.1250000 0.1250000 11 | T T WIND SPEED U10 ( METRES/SECOND ) 12 | T T WIND DIRECTION ( DEGREE FROM NORTH TO ) 13 | T F FRICTION VELOCITY ( METRES/SECOND ) 14 | T F DRAG COEFFICIENT ( PROMILLE ) 15 | T F CHARNOCK PARAMETER 16 | T F WATER DEPTH (METRES) (DEEPER THAN 999M ARE PRINTED AS 999) 17 | T F CURRENT SPEED ( METRES/SECOND ) 18 | T F CURRENT DIRECTION ( DEGREE FROM NORTH TO ) 19 | T T SIGNIFICANT WAVE HEIGHT ( METRES ) 20 | T T WAVE PEAK PERIOD ( SECONDS ) 21 | T T WAVE MEAN PERIOD (SECONDS ) 22 | T T WAVE TM1 PERIOD ( SECONDS ) 23 | T T WAVE TM2 PERIOD ( SECONDS ) 24 | T T WAVE DIRECTION ( DEGREE FROM NORTH TO ) 25 | T F DIRECTIONAL SPREAD ( DEGREES ) 26 | T F NORMALISED WAVE STRESS ( % ) 27 | T T SEA SIGNIFICANT WAVE HEIGHT ( METRES ) 28 | T F SEA PEAK PERIOD ( SECONDS ) 29 | T F SEA MEAN PERIOD ( SECONDS ) 30 | T F SEA TM1 PERIOD ( SECONDS ) 31 | T F SEA TM2 PERIOD ( SECONDS ) 32 | T T SEA DIRECTION ( DEGREE FROM NORTH TO ) 33 | T F SEA DIRECTIONAL SPREAD ( DEGREES ) 34 | F F DUMMY 35 | T T SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 36 | T F SWELL PEAK PERIOD ( SECONDS ) 37 | T F SWELL MEAN PERIOD ( SECONDS ) 38 | T F SWELL TM1 PERIOD ( SECONDS ) 39 | T F SWELL TM2 PERIOD ( SECONDS ) 40 | T T SWELL DIRECTION ( DEGREE FROM NORTH TO ) 41 | T F SWELL DIRECTIONAL SPREAD ( DEGREES ) 42 | T T ROUGHNESS LENGTH Z0 ( METRES ) 43 | T F GODA PEAKEDNESS PARAMETER 44 | T F KURTOSIS 45 | T F BENJAMIN-FEIR INDEX 46 | T F NORMALIZED MAXIMUM WAVE HEIGHT 47 | T F MAXIMUM WAVE PERIOD ( SECONDS ) 48 | T F PEAK FREQUENCY (INTERPOLATED) ( HZ ) 49 | T F PEAK DIRECTION ( DEGREE FROM NORTH TO ) 50 | T F MEAN SQUARE SLOPE 51 | T F FIRST SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 52 | T F FIRST SWELL TM1 PERIOD ( SECONDS ) 53 | T F FIRST SWELL DIRECTION ( DEGREE FROM NORTH TO ) 54 | T F SECOND SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 55 | T F SECOND SWELL TM1 PERIOD ( SECONDS ) 56 | T F SECOND SWELL DIRECTION ( DEGREE FROM NORTH TO ) 57 | T F THIRD SWELL SIGNIFICANT WAVE HEIGHT ( METRES ) 58 | T F THIRD SWELL TM1 PERIOD ( SECONDS ) 59 | T F THIRD SWELL DIRECTION ( DEGREE FROM NORTH TO ) 60 | F F DUMMY 61 | T F RADIATION STRESS TENSOR SXX ( KG/S/S ) 62 | T F RADIATION STRESS TENSOR SYY ( KG/S/S ) 63 | T F RADIATION STRESS TENSOR SXY ( KG/S/S ) 64 | F F DUMMY 65 | T F X-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 66 | T F Y-COMP. WAVE FORCE PER SURFACE UNIT ( N/M/M ) 67 | T T X-COMP. STOKES DRIFT ( M/S ) 68 | T T Y-COMP. STOKES DRIFT ( M/S ) 69 | T T ENERGY FLUX TO OCEAN ( KG/S/S/S ) 70 | T T TOTAL ENERGY FLUX FROM WIND TO WAVES ( KG/S/S/S ) 71 | T T X-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 72 | T T Y-COMP. MOMENTUM FLUX INTO OCEAN ( KG/M/S/S ) 73 | T T ENERGY FLUX FROM WAVES TO BOTTOM ( KG/S/S/S ) 74 | T T X-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 75 | T T Y-COMP. MOMENTUM FLUX FROM WAVES TO BOTTOM ( KG/M/S/S ) 76 | F F DUMMY 77 | T T CREST MAX (TIME, FORRISTALL) 78 | T T HMAX (TIME, NAESS) 79 | T T MAXIMUM CREST H.- SPACE-TIME (STQD) 80 | T T MAXIMUM WAVE H.- SPACE-TIME (STQD) 81 | 82 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 83 | ../fine_2/MAP219780907060000 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | SUB. OPEN_FILE: A FILE WAS CONNECTED TO UNIT = 1 FILE NAME IS: 93 | ../fine_2/MAP219780908060000 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | -------------------------------------------------------------------------------- /documentation/MyWave_D1.1.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/documentation/MyWave_D1.1.pdf -------------------------------------------------------------------------------- /documentation/Part-VII-ECMWF-Wave-Model.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/documentation/Part-VII-ECMWF-Wave-Model.pdf -------------------------------------------------------------------------------- /documentation/Report_cycle_4.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/documentation/Report_cycle_4.pdf -------------------------------------------------------------------------------- /jobs/jpgrid: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing pgrid 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=pgrid 8 | #SBATCH --partition=pCluster 9 | #SBATCH --ntasks=1 10 | #SBATCH --time=00:30:00 11 | #SBATCH --mail-type=FAIL 12 | #SBATCH --account=cluster 13 | #SBATCH --output=wam.o%j 14 | #SBATCH --error=wam.e%j 15 | # 16 | module load compilers/intel/2019.4.243 17 | module load intelmpi/2019.4.243 18 | module load netcdf 19 | # 20 | set -k 21 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 22 | WORK=/gpfs/work/behrens/WAM_Cycle_6 23 | cd ${WORK}/tempsg 24 | # 25 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Grid_User . 26 | cp ${WAMDIR}/abs/pgrid pgrid.exe 27 | # 28 | ./pgrid.exe 29 | mv Grid_Prot ${WAMDIR}/dayfiles/pgrid_prot_coarse_JAN 30 | rm Grid_User pgrid.exe 31 | # 32 | # =================================================================== 33 | # GRID FILES HAVE BEEN CREATED AND SAVED. 34 | # END OF JOB PGRID. 35 | # =================================================================== 36 | # 37 | -------------------------------------------------------------------------------- /jobs/jpnetcdf: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # 3 | #==> WAM post-processing pnetcdf 4 | # 5 | # Arno Behrens (March January 2016) 6 | # 7 | #SBATCH --job-name=pnetcdf 8 | #SBATCH --partition=pCluster 9 | #SBATCH --ntasks=1 10 | #SBATCH --time=00:05:00 11 | #SBATCH --mail-type=FAIL 12 | #SBATCH --account=cluster 13 | #SBATCH --output=pnetcdf.o%j 14 | #SBATCH --error=pnetcdf.e%j 15 | # 16 | module load compilers/intel/2019.4.243 17 | module load intelmpi/2019.4.243 18 | module load netcdf 19 | # 20 | set -k 21 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 22 | WORK=/gpfs/work/behrens/WAM_Cycle_6 23 | cd ${WORK}/tempsg 24 | # 25 | cp ${WAMDIR}/const/Coarse_Grid/JAN/nlnetcdf NETCDF_User 26 | cp ${WAMDIR}/abs/pnetcdf pnetcdf.exe 27 | # 28 | srun -N 1 -n 1 --mpi=pmi2 -t 5 ./pnetcdf.exe 29 | # 30 | mv pnetcdf_prot ${WAMDIR}/dayfiles/pnetcdf_prot_coarse_JAN 31 | mv WAVE* ../coarse/JAN 32 | rm NETCDF_User pnetcdf.exe 33 | # 34 | # =================================================================== 35 | # NETCDF FILES HAVE BEEN CREATED AND SAVED. 36 | # END OF JOB PNETCDF. 37 | # =================================================================== 38 | # 39 | -------------------------------------------------------------------------------- /jobs/jpreproc: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM pre-processing preproc 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=preproc 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=preproc.o%j 15 | #SBATCH --error=preproc.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/TOPOCAT.DAT . 27 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Preproc_User . 28 | cp ${WAMDIR}/abs/preproc preproc.exe 29 | # 30 | srun ./preproc.exe 31 | # 32 | mv Preproc_Prot ${WAMDIR}/dayfiles/preproc_prot_coarse_JAN 33 | mv Grid_info_COARSE_GRID ../work 34 | rm Preproc_User preproc.exe TOPOCAT.DAT 35 | # 36 | # =================================================================== 37 | # GRID FILES HAVE BEEN CREATED AND SAVED. 38 | # END OF JOB PREPROC. 39 | # =================================================================== 40 | # 41 | -------------------------------------------------------------------------------- /jobs/jpspec: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | # Arno Behrens (May 2019) 4 | # 5 | #==> WAM post-processing pspec 6 | # 7 | #SBATCH --job-name=pspec 8 | #SBATCH --partition=pCluster 9 | #SBATCH --ntasks=1 10 | #SBATCH --time=00:05:00 11 | #SBATCH --mail-type=FAIL 12 | #SBATCH --account=cluster 13 | #SBATCH --output=pspec.o%j 14 | #SBATCH --error=pspec.e%j 15 | # 16 | module load compilers/intel/2019.4.243 17 | module load intelmpi/2019.4.243 18 | module load netcdf 19 | # 20 | set -k 21 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 22 | WORK=/gpfs/work/behrens/WAM_Cycle_6 23 | # 24 | cd ${WORK}/tempsg 25 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Spectra_User . 26 | cp ${WAMDIR}/abs/pspec pspec.exe 27 | # 28 | ./pspec.exe 29 | # 30 | mv Spectra_Prot ${WAMDIR}/dayfiles/pspec_prot_coarse_JAN 31 | rm Spectra_User pspec.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PGRID. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs/jptime: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime 4 | # 5 | # Arno Behrens (September 2019) 6 | # 7 | #SBATCH --job-name=ptime 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime.o%j 15 | #SBATCH --error=ptime.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Time_User . 27 | cp ${WAMDIR}/abs/ptime ptime.exe 28 | # 29 | ./ptime.exe 30 | mv Time_Prot ${WAMDIR}/dayfiles/ptime_prot_coarse_JAN 31 | rm Time_User ptime.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs/jptime_s: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime_s 4 | # 5 | # Arno Behrens (July 2015) 6 | # 7 | #SBATCH --job-name=ptime_s 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime_s.o%j 15 | #SBATCH --error=ptime_s.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Time_User_S . 27 | cp ${WAMDIR}/abs/ptime_S ptime_S.exe 28 | # 29 | ./ptime_S.exe 30 | mv Time_Prot_S ${WAMDIR}/dayfiles/ptime_S_prot_coarse 31 | rm Time_User_S ptime_S.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs/jwam: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM model run 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=TS_Wave 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=2 10 | #SBATCH --ntasks-per-node=2 11 | #SBATCH --time=00:30:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=wam.o%j 15 | #SBATCH --error=wam.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | cdir=/gpfs/home/behrens/WAM_Cycle_6 23 | work=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${work}/tempsg 26 | #cp ${cdir}/const/OBS* . 27 | cp ${cdir}/const/Coarse_Grid/JAN/WAM_User . 28 | cp ${work}/work/Grid_info_COARSE_GRID . 29 | cp ${cdir}/const/WIND_INPUT.DAT . 30 | # 31 | cp ${cdir}/abs/wam wam.exe 32 | mpirun ./wam.exe 33 | # 34 | cp logfile.0 ${cdir}/dayfiles/wam_prot_coarse_JAN 35 | mv BLS* MAP* OUT* C* ../coarse/JAN 36 | rm wam.exe WAM_User Grid_info_COARSE_GRID WIND_INPUT.DAT 37 | #rm OBS* 38 | # 39 | -------------------------------------------------------------------------------- /jobs_ARD/jpgrid: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing pgrid 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=pgrid 8 | #SBATCH --partition=pCluster 9 | #SBATCH --ntasks=1 10 | #SBATCH --time=00:30:00 11 | #SBATCH --mail-type=FAIL 12 | #SBATCH --account=cluster 13 | #SBATCH --output=wam.o%j 14 | #SBATCH --error=wam.e%j 15 | # 16 | module load compilers/intel/2019.4.243 17 | module load intelmpi/2019.4.243 18 | module load netcdf 19 | # 20 | set -k 21 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 22 | WORK=/gpfs/work/behrens/WAM_Cycle_6 23 | cd ${WORK}/tempsg 24 | # 25 | cp ${WAMDIR}/const/Coarse_Grid/ARD/Grid_User . 26 | cp ${WAMDIR}/abs/pgrid pgrid.exe 27 | # 28 | ./pgrid.exe 29 | mv Grid_Prot ${WAMDIR}/dayfiles/pgrid_prot_coarse_ARD 30 | rm Grid_User pgrid.exe 31 | # 32 | # =================================================================== 33 | # GRID FILES HAVE BEEN CREATED AND SAVED. 34 | # END OF JOB PGRID. 35 | # =================================================================== 36 | # 37 | -------------------------------------------------------------------------------- /jobs_ARD/jpnetcdf: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # 3 | #==> WAM post-processing pnetcdf 4 | # 5 | # Arno Behrens (March January 2016) 6 | # 7 | #SBATCH --job-name=pnetcdf 8 | #SBATCH --partition=pCluster 9 | #SBATCH --ntasks=1 10 | #SBATCH --time=00:05:00 11 | #SBATCH --mail-type=FAIL 12 | #SBATCH --account=cluster 13 | #SBATCH --output=pnetcdf.o%j 14 | #SBATCH --error=pnetcdf.e%j 15 | # 16 | module load compilers/intel/2019.4.243 17 | module load intelmpi/2019.4.243 18 | module load netcdf 19 | # 20 | set -k 21 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 22 | WORK=/gpfs/work/behrens/WAM_Cycle_6 23 | cd ${WORK}/tempsg 24 | # 25 | cp ${WAMDIR}/const/Coarse_Grid/ARD/nlnetcdf NETCDF_User 26 | cp ${WAMDIR}/abs/pnetcdf pnetcdf.exe 27 | # 28 | srun -N 1 -n 1 --mpi=pmi2 -t 5 ./pnetcdf.exe 29 | # 30 | mv pnetcdf_prot ${WAMDIR}/dayfiles/pnetcdf_prot_coarse_ARD 31 | mv WAVE* ../coarse/ARD 32 | rm NETCDF_User pnetcdf.exe 33 | # 34 | # =================================================================== 35 | # NETCDF FILES HAVE BEEN CREATED AND SAVED. 36 | # END OF JOB PNETCDF. 37 | # =================================================================== 38 | # 39 | -------------------------------------------------------------------------------- /jobs_ARD/jpreproc: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM pre-processing preproc 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=preproc 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=preproc.o%j 15 | #SBATCH --error=preproc.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/TOPOCAT.DAT . 27 | cp ${WAMDIR}/const/Coarse_Grid/ARD/Preproc_User . 28 | cp ${WAMDIR}/abs/preproc preproc.exe 29 | # 30 | srun ./preproc.exe 31 | # 32 | mv Preproc_Prot ${WAMDIR}/dayfiles/preproc_prot_coarse_ARD 33 | mv Grid_info_COARSE_GRID ../work 34 | rm Preproc_User preproc.exe TOPOCAT.DAT 35 | # 36 | # =================================================================== 37 | # GRID FILES HAVE BEEN CREATED AND SAVED. 38 | # END OF JOB PREPROC. 39 | # =================================================================== 40 | # 41 | -------------------------------------------------------------------------------- /jobs_ARD/jpspec: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | # Arno Behrens (May 2019) 4 | # 5 | #==> WAM post-processing pspec 6 | # 7 | #SBATCH --job-name=pspec 8 | #SBATCH --partition=pCluster 9 | #SBATCH --ntasks=1 10 | #SBATCH --time=00:05:00 11 | #SBATCH --mail-type=FAIL 12 | #SBATCH --account=cluster 13 | #SBATCH --output=pspec.o%j 14 | #SBATCH --error=pspec.e%j 15 | # 16 | module load compilers/intel/2019.4.243 17 | module load intelmpi/2019.4.243 18 | module load netcdf 19 | # 20 | set -k 21 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 22 | WORK=/gpfs/work/behrens/WAM_Cycle_6 23 | # 24 | cd ${WORK}/tempsg 25 | cp ${WAMDIR}/const/Coarse_Grid/ARD/Spectra_User . 26 | cp ${WAMDIR}/abs/pspec pspec.exe 27 | # 28 | ./pspec.exe 29 | # 30 | mv Spectra_Prot ${WAMDIR}/dayfiles/pspec_prot_coarse_ARD 31 | rm Spectra_User pspec.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PGRID. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_ARD/jptime: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime 4 | # 5 | # Arno Behrens (September 2019) 6 | # 7 | #SBATCH --job-name=ptime 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime.o%j 15 | #SBATCH --error=ptime.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/ARD/Time_User . 27 | cp ${WAMDIR}/abs/ptime ptime.exe 28 | # 29 | ./ptime.exe 30 | mv Time_Prot ${WAMDIR}/dayfiles/ptime_prot_coarse_ARD 31 | rm Time_User ptime.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_ARD/jptime_s: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime_s 4 | # 5 | # Arno Behrens (July 2015) 6 | # 7 | #SBATCH --job-name=ptime_s 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime_s.o%j 15 | #SBATCH --error=ptime_s.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/ARD/Time_User_S . 27 | cp ${WAMDIR}/abs/ptime_S ptime_S.exe 28 | # 29 | ./ptime_S.exe 30 | mv Time_Prot_S ${WAMDIR}/dayfiles/ptime_S_prot_coarse_ARD 31 | rm Time_User_S ptime_S.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_ARD/jwam: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM model run 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=TS_Wave 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=2 10 | #SBATCH --ntasks-per-node=2 11 | #SBATCH --time=00:30:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=wam.o%j 15 | #SBATCH --error=wam.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | cdir=/gpfs/home/behrens/WAM_Cycle_6 23 | work=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${work}/tempsg 26 | #cp ${cdir}/const/OBS* . 27 | cp ${cdir}/const/Coarse_Grid/ARD/WAM_User . 28 | cp ${work}/work/Grid_info_COARSE_GRID . 29 | cp ${cdir}/const/WIND_INPUT.DAT . 30 | # 31 | cp ${cdir}/abs/wam wam.exe 32 | mpirun ./wam.exe 33 | # 34 | cp logfile.0 ${cdir}/dayfiles/wam_prot_coarse_ARD 35 | mv BLS* MAP* OUT* C* ../coarse/ARD 36 | rm wam.exe WAM_User Grid_info_COARSE_GRID WIND_INPUT.DAT 37 | #rm OBS* 38 | # 39 | -------------------------------------------------------------------------------- /jobs_f1/jpgrid: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing pgrid 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=pgrid 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:30:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=wam.o%j 15 | #SBATCH --error=wam.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | cd ${WORK}/tempsg 25 | # 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Grid_User . 27 | cp ${WAMDIR}/abs/pgrid pgrid.exe 28 | # 29 | ./pgrid.exe 30 | mv Grid_Prot ${WAMDIR}/dayfiles/coarse/pgrid_prot_coarse 31 | rm Grid_User pgrid.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PGRID. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_f1/jpnetcdf: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # 3 | #==> WAM post-processing pnetcdf 4 | # 5 | # Arno Behrens (March January 2016) 6 | # 7 | #SBATCH --job-name=pnetcdf 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=pnetcdf.o%j 15 | #SBATCH --error=pnetcdf.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | cd ${WORK}/tempsg 25 | # 26 | cp ${WAMDIR}/const/Fine_1/JAN/nlnetcdf NETCDF_User 27 | cp ${WAMDIR}/abs/pnetcdf pnetcdf.exe 28 | # 29 | srun -N 1 -n 1 --mpi=pmi2 -t 5 ./pnetcdf.exe 30 | # 31 | mv pnetcdf_prot ${WAMDIR}/dayfiles/pnetcdf_prot_fine1 32 | #mv WAVE* ../fine_1 33 | rm NETCDF_User pnetcdf.exe 34 | # 35 | # =================================================================== 36 | # NETCDF FILES HAVE BEEN CREATED AND SAVED. 37 | # END OF JOB PNETCDF. 38 | # =================================================================== 39 | # 40 | -------------------------------------------------------------------------------- /jobs_f1/jpreproc: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM pre-processing preproc 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=preproc 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=preproc.o%j 15 | #SBATCH --error=preproc.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/TOPOCAT.DAT . 27 | cp ${WORK}/work/Grid_info_COARSE_GRID . 28 | cp ${WAMDIR}/const/Fine_1/JAN/Preproc_User . 29 | cp ${WAMDIR}/abs/preproc preproc.exe 30 | # 31 | srun ./preproc.exe 32 | # 33 | mv Preproc_Prot ${WAMDIR}/dayfiles/preproc_prot_fine1 34 | mv Grid_info_fine_1_GRID ../work 35 | rm Preproc_User preproc.exe TOPOCAT.DAT 36 | # 37 | # =================================================================== 38 | # GRID FILES HAVE BEEN CREATED AND SAVED. 39 | # END OF JOB PREPROC. 40 | # =================================================================== 41 | # 42 | -------------------------------------------------------------------------------- /jobs_f1/jpspec: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | # Arno Behrens (May 2019) 4 | # 5 | #==> WAM post-processing pspec 6 | # 7 | #SBATCH --job-name=pspec 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=pspec.o%j 15 | #SBATCH --error=pspec.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Fine_1/JAN/Spectra_User . 27 | cp ${WAMDIR}/abs/pspec pspec.exe 28 | # 29 | ./pspec.exe 30 | # 31 | mv Spectra_Prot ${WAMDIR}/dayfiles/pspec_prot_fine1 32 | rm Spectra_User pspec.exe 33 | # 34 | # =================================================================== 35 | # GRID FILES HAVE BEEN CREATED AND SAVED. 36 | # END OF JOB PGRID. 37 | # =================================================================== 38 | # 39 | -------------------------------------------------------------------------------- /jobs_f1/jptime: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime 4 | # 5 | # Arno Behrens (September 2019) 6 | # 7 | #SBATCH --job-name=ptime 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime.o%j 15 | #SBATCH --error=ptime.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Time_User . 27 | cp ${WAMDIR}/abs/ptime ptime.exe 28 | # 29 | ./ptime.exe 30 | mv Time_Prot ${WAMDIR}/dayfiles/coarse/ptime_prot_coarse 31 | rm Time_User ptime.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_f1/jptime_s: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime_s 4 | # 5 | # Arno Behrens (July 2015) 6 | # 7 | #SBATCH --job-name=ptime_s 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime_s.o%j 15 | #SBATCH --error=ptime_s.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Time_User_S . 27 | cp ${WAMDIR}/abs/ptime_S ptime_S.exe 28 | # 29 | ./ptime_S.exe 30 | mv Time_Prot_S ${WAMDIR}/dayfiles/coarse/ptime_S_prot_coarse 31 | rm Time_User_S ptime_S.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_f1/jwam: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM model run 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=WAM_N1 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=2 10 | #SBATCH --ntasks-per-node=2 11 | #SBATCH --time=00:30:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=wam.o%j 15 | #SBATCH --error=wam.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | cdir=/gpfs/home/behrens/WAM_Cycle_6 23 | work=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${work}/tempsg 26 | cp ${cdir}/const/Fine_1/JAN/WAM_User . 27 | cp ${work}/work/Grid_info_fine_1_GRID . 28 | cp ${cdir}/const/WIND_INPUT.DAT . 29 | # 30 | cp ${cdir}/abs/wam wam.exe 31 | mpirun ./wam.exe 32 | # 33 | cp logfile.0 ${cdir}/dayfiles/wam_prot_fine_1 34 | mv BLS* MAP* OUT* C* ../fine_1 35 | rm wam.exe WAM_User Grid_info* WIND_INPUT.DAT 36 | # 37 | -------------------------------------------------------------------------------- /jobs_f2/jpgrid: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing pgrid 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=pgrid 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:30:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=wam.o%j 15 | #SBATCH --error=wam.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | cd ${WORK}/tempsg 25 | # 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Grid_User . 27 | cp ${WAMDIR}/abs/pgrid pgrid.exe 28 | # 29 | ./pgrid.exe 30 | mv Grid_Prot ${WAMDIR}/dayfiles/coarse/pgrid_prot_coarse 31 | rm Grid_User pgrid.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PGRID. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_f2/jpnetcdf: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # 3 | #==> WAM post-processing pnetcdf 4 | # 5 | # Arno Behrens (March January 2016) 6 | # 7 | #SBATCH --job-name=pnetcdf 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=pnetcdf.o%j 15 | #SBATCH --error=pnetcdf.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | cd ${WORK}/tempsg 25 | # 26 | cp ${WAMDIR}/const/Fine_2/JAN/nlnetcdf NETCDF_User 27 | cp ${WAMDIR}/abs/pnetcdf pnetcdf.exe 28 | # 29 | srun -N 1 -n 1 --mpi=pmi2 -t 5 ./pnetcdf.exe 30 | # 31 | mv pnetcdf_prot ${WAMDIR}/dayfiles/pnetcdf_prot_fine_2 32 | #mv WAVE* ../fine_2 33 | rm NETCDF_User pnetcdf.exe 34 | # 35 | # =================================================================== 36 | # NETCDF FILES HAVE BEEN CREATED AND SAVED. 37 | # END OF JOB PNETCDF. 38 | # =================================================================== 39 | # 40 | -------------------------------------------------------------------------------- /jobs_f2/jpreproc: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM pre-processing preproc 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=preproc 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=preproc.o%j 15 | #SBATCH --error=preproc.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set +k 22 | WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WORK}/work/Grid_info_COARSE_GRID . 27 | cp ${WAMDIR}/const/TOPOCAT.DAT . 28 | cp ${WAMDIR}/const/Fine_2/JAN/Preproc_User . 29 | cp ${WAMDIR}/abs/preproc preproc.exe 30 | # 31 | srun ./preproc.exe 32 | # 33 | mv Preproc_Prot ${WAMDIR}/dayfiles/preproc_prot_fine_2 34 | mv Grid_info_fine_2_GRID ../work 35 | rm Preproc_User preproc.exe TOPOCAT.DAT Grid_info_COARSE_GRID 36 | # 37 | # =================================================================== 38 | # GRID FILES HAVE BEEN CREATED AND SAVED. 39 | # END OF JOB PREPROC. 40 | # =================================================================== 41 | # 42 | -------------------------------------------------------------------------------- /jobs_f2/jpspec: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | # Arno Behrens (May 2019) 4 | # 5 | #==> WAM post-processing pspec 6 | # 7 | #SBATCH --job-name=pspec 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=pspec.o%j 15 | #SBATCH --error=pspec.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Spectra_User . 27 | cp ${WAMDIR}/abs/pspec pspec.exe 28 | # 29 | ./pspec.exe 30 | # 31 | mv Spectra_Prot ${WAMDIR}/dayfiles/coarse/pspec_prot_coarse 32 | rm Spectra_User pspec.exe 33 | # 34 | # =================================================================== 35 | # GRID FILES HAVE BEEN CREATED AND SAVED. 36 | # END OF JOB PGRID. 37 | # =================================================================== 38 | # 39 | -------------------------------------------------------------------------------- /jobs_f2/jptime: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime 4 | # 5 | # Arno Behrens (September 2019) 6 | # 7 | #SBATCH --job-name=ptime 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime.o%j 15 | #SBATCH --error=ptime.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Time_User . 27 | cp ${WAMDIR}/abs/ptime ptime.exe 28 | # 29 | ./ptime.exe 30 | mv Time_Prot ${WAMDIR}/dayfiles/coarse/ptime_prot_coarse 31 | rm Time_User ptime.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_f2/jptime_s: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM post-processing ptime_s 4 | # 5 | # Arno Behrens (July 2015) 6 | # 7 | #SBATCH --job-name=ptime_s 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=1 10 | #SBATCH --ntasks-per-node=1 11 | #SBATCH --time=00:05:00 12 | #SBATCH --mail-type=FAIL 13 | #SBATCH --account=cluster 14 | #SBATCH --output=ptime_s.o%j 15 | #SBATCH --error=ptime_s.e%j 16 | # 17 | module load compilers/intel/2019.4.243 18 | module load intelmpi/2019.4.243 19 | module load netcdf 20 | # 21 | set -k 22 | WAMDIR=WAMDIR=/gpfs/home/behrens/WAM_Cycle_6 23 | WORK=/gpfs/work/behrens/WAM_Cycle_6 24 | # 25 | cd ${WORK}/tempsg 26 | cp ${WAMDIR}/const/Coarse_Grid/JAN/Time_User_S . 27 | cp ${WAMDIR}/abs/ptime_S ptime_S.exe 28 | # 29 | ./ptime_S.exe 30 | mv Time_Prot_S ${WAMDIR}/dayfiles/coarse/ptime_S_prot_coarse 31 | rm Time_User_S ptime_S.exe 32 | # 33 | # =================================================================== 34 | # GRID FILES HAVE BEEN CREATED AND SAVED. 35 | # END OF JOB PTIME. 36 | # =================================================================== 37 | # 38 | -------------------------------------------------------------------------------- /jobs_f2/jwam: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # 3 | #==> WAM model run 4 | # 5 | # Arno Behrens (May 2019) 6 | # 7 | #SBATCH --job-name=BS_Wave 8 | #SBATCH --partition=pCluster 9 | #SBATCH --nodes=2 10 | #SBATCH --ntasks-per-node=2 11 | ##SBATCH -w n[033-034] 12 | #SBATCH --time=00:30:00 13 | #SBATCH --mail-type=FAIL 14 | #SBATCH --account=cluster 15 | #SBATCH --output=wam.o%j 16 | #SBATCH --error=wam.e%j 17 | # 18 | module load compilers/intel/2019.4.243 19 | module load intelmpi/2019.4.243 20 | module load netcdf 21 | # 22 | set +k 23 | cdir=/gpfs/home/behrens/WAM_Cycle_6 24 | work=/gpfs/work/behrens/WAM_Cycle_6 25 | # 26 | cd ${work}/tempsg 27 | #cp ${cdir}/const/OBS* . 28 | cp ${cdir}/const/Fine_2/JAN/WAM_User . 29 | cp ${work}/work/Grid_info_fine_2_GRID . 30 | cp ${cdir}/const/WIND_INPUT.DAT . 31 | cp ${cdir}/const/TOPO_INPUT.DAT . 32 | cp ${cdir}/const/ICE_INPUT.DAT . 33 | cp ${cdir}/const/CURRENT_INPUT.DAT . 34 | # 35 | cp ${cdir}/abs/wam wam.exe 36 | mpirun ./wam.exe 37 | # 38 | cp logfile.0 ${cdir}/dayfiles/wam_prot_fine_2 39 | mv BLS* MAP* OUT* ../fine_2 40 | rm wam.exe WAM_User Grid_info_fine_2_GRID *.DAT 41 | # 42 | -------------------------------------------------------------------------------- /mk/build_pgrid: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/pgrid.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f pgrid.mk pgrid 15 | mv pgrid $EXECDIR 16 | rm -f pgrid.mk 17 | -------------------------------------------------------------------------------- /mk/build_pnetcdf: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/pnetcdf.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f pnetcdf.mk pnetcdf 15 | mv pnetcdf $EXECDIR 16 | rm -f pnetcdf.mk 17 | -------------------------------------------------------------------------------- /mk/build_pre_u10: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/box 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="incdate pre_u10" 12 | 13 | cd $path_o 14 | 15 | cp ${path_f}/pre_u10.f90 ${path_o} 16 | cp ${path_f}/incdate.f90 ${path_o} 17 | ifort pre_u10.f90 incdate.f90 -o pre_u10 18 | rm -f pre_u10.f90 incdate.f90 19 | mv pre_u10 ../abs 20 | -------------------------------------------------------------------------------- /mk/build_preproc: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/preproc.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f preproc.mk preproc 15 | mv preproc $EXECDIR 16 | rm -f preproc.mk 17 | -------------------------------------------------------------------------------- /mk/build_pspec: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/pspec.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f pspec.mk pspec 15 | mv pspec $EXECDIR 16 | rm -f pspec.mk 17 | -------------------------------------------------------------------------------- /mk/build_ptime: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/ptime.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f ptime.mk ptime 15 | mv ptime $EXECDIR 16 | rm -f ptime.mk 17 | -------------------------------------------------------------------------------- /mk/build_ptime_S: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/ptime_S.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f ptime_S.mk ptime_S 15 | mv ptime_S $EXECDIR 16 | rm -f ptime_S.mk 17 | -------------------------------------------------------------------------------- /mk/build_wam: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | 5 | module load compilers/intel/2019.4.243 6 | module load intelmpi/2019.4.243 7 | module load netcdf 8 | 9 | SCRDIR=${PRODADMDIR}/mk 10 | OBJDIR=${PRODADMDIR}/obj 11 | EXECDIR=${PRODADMDIR}/abs 12 | cp $SCRDIR/chief.mk $OBJDIR 13 | cd $OBJDIR 14 | make -f chief.mk chief 15 | mv chief $EXECDIR/wam 16 | rm -f chief.mk 17 | -------------------------------------------------------------------------------- /mk/chief.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_file_module.o wam_general_module.o wam_timopt_module.o wam_fre_dir_module.o \ 2 | wam_jonswap_module.o wam_tables_module.o wam_swell_module.o \ 3 | wam_interface_module.o wam_grid_module.o wam_current_module.o wam_model_module.o \ 4 | wam_ice_module.o wam_output_module.o wam_wind_module.o wam_boundary_module.o \ 5 | wam_flux_module.o \ 6 | wam_source_module.o wam_propagation_module.o preproc_module.o wam_coldstart_module.o \ 7 | wam_restart_module.o wam_initial_module.o wam_mpi_module.o wam_output_set_up_module.o \ 8 | wam_topo_module.o wam_radiation_module.o wam_nest_module.o wam_user_module.o \ 9 | wam_special_module.o read_topo_input.o chief.o wavemdl.o initmdl.o read_wam_user.o \ 10 | print_wam_status.o read_wind_input.o read_current_input.o wamodel.o read_boundary_input.o \ 11 | read_ice_input.o jafu.o wam_mpi_comp_module.o wam_assi_set_up_module.o \ 12 | wam_assi_module.o wam_coordinate_module.o readsat.o wam_output_parameter_module.o 13 | 14 | chief: 15 | mpiifort $(OBJECTS) -o chief 16 | -------------------------------------------------------------------------------- /mk/create_binaries: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | #++ 3 | # 4 | # compile 5 | # 6 | ./make_modules1 7 | ./make_modules2 8 | ./make_preproc 9 | ./make_chief 10 | ./make_print 11 | ./make_netcdf 12 | # 13 | # create binaries 14 | # 15 | ./build_preproc 16 | ./build_wam 17 | ./build_pgrid 18 | ./build_pspec 19 | ./build_ptime 20 | ./build_ptime_S 21 | ./build_pnetcdf 22 | # 23 | -------------------------------------------------------------------------------- /mk/make_chief: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/chief 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="chief wavemdl initmdl read_wam_user print_wam_status read_wind_input \ 12 | read_current_input wamodel read_boundary_input read_ice_input jafu \ 13 | read_topo_input readsat" 14 | 15 | cd $path_o 16 | 17 | for code in $modfile 18 | do 19 | rm -f ${code}.f90 ${code}.o 20 | cp ${path_f}/${code}.f90 ${path_o}/${code}.f90 21 | mpiifort -c ${code}.f90 22 | rm -f ${code}.f90 23 | done 24 | -------------------------------------------------------------------------------- /mk/make_modules1: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/mod 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="wam_file_module wam_mpi_module wam_model_module \ 12 | wam_output_parameter_module wam_coordinate_module wam_general_module \ 13 | wam_timopt_module wam_fre_dir_module wam_grid_module wam_jonswap_module \ 14 | wam_tables_module wam_special_module wam_wind_module wam_output_set_up_module \ 15 | wam_interface_module wam_ice_module \ 16 | wam_assi_set_up_module wam_nest_module \ 17 | wam_mpi_comp_module wam_current_module wam_boundary_module" 18 | 19 | cd $path_o 20 | 21 | for code in $modfile 22 | do 23 | rm -f ${code}.f90 ${code}.o 24 | cp ${path_f}/${code}.f90 ${path_o}/${code}.f90 25 | mpiifort -c ${code}.f90 26 | rm -f ${code}.f90 27 | done 28 | -------------------------------------------------------------------------------- /mk/make_modules2: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/mod 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="wam_topo_module wam_flux_module wam_source_module \ 12 | wam_propagation_module \ 13 | wam_swell_module wam_radiation_module wam_output_module \ 14 | preproc_module wam_coldstart_module \ 15 | wam_restart_module wam_initial_module wam_print_module \ 16 | preproc_user_module wam_user_module \ 17 | wam_print_user_module wam_assi_module" 18 | 19 | cd $path_o 20 | 21 | for code in $modfile 22 | do 23 | rm -f ${code}.f90 ${code}.o 24 | cp ${path_f}/${code}.f90 ${path_o}/${code}.f90 25 | mpiifort -c ${code}.f90 26 | rm -f ${code}.f90 27 | done 28 | -------------------------------------------------------------------------------- /mk/make_netcdf: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/print 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="wam_netcdf_module make_netcdf" 12 | 13 | cd $path_o 14 | 15 | for code in $modfile 16 | do 17 | rm -f ${code}.f90 ${code}.o 18 | cp ${path_f}/${code}.f90 ${path_o}/${code}.f90 19 | mpiifort -c ${code}.f90 -I/project/opt/software/netcdf/4.7.0/intel/include/ -L/project/opt/software/netcdf/4.7.0/intel/lib/ -lnetcdf -lnetcdff 20 | rm -f ${code}.f90 21 | done 22 | -------------------------------------------------------------------------------- /mk/make_preproc: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/preproc 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="preproc read_topography read_preproc_user" 12 | 13 | cd $path_o 14 | 15 | for code in $modfile 16 | do 17 | rm -f ${code}.f90 ${code}.o 18 | cp ${path_f}/${code}.f90 ${path_o}/${code}.f90 19 | mpiifort -c ${code}.f90 20 | rm -f ${code}.f90 21 | done 22 | -------------------------------------------------------------------------------- /mk/make_print: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | set -ex 3 | . ${0%/*}/.dirset 4 | path_o=${PRODADMDIR}/obj 5 | path_f=${PRODADMDIR}/src/print 6 | 7 | module load compilers/intel/2019.4.243 8 | module load intelmpi/2019.4.243 9 | module load netcdf 10 | 11 | modfile="print_grid_file print_spectra_file \ 12 | print_time read_grid_file read_grid_user \ 13 | read_spectra_file read_spectra_user \ 14 | read_time_user read_time_user_S print_time_S" 15 | 16 | cd $path_o 17 | 18 | for code in $modfile 19 | do 20 | rm -f ${code}.f90 ${code}.o 21 | cp ${path_f}/${code}.f90 ${path_o}/${code}.f90 22 | mpiifort -c ${code}.f90 23 | rm -f ${code}.f90 24 | done 25 | -------------------------------------------------------------------------------- /mk/pgrid.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_general_module.o wam_print_module.o wam_file_module.o \ 2 | wam_coordinate_module.o wam_output_parameter_module.o \ 3 | wam_print_user_module.o print_grid_file.o read_grid_file.o read_grid_user.o 4 | 5 | pgrid: 6 | mpiifort $(OBJECTS) -o pgrid 7 | -------------------------------------------------------------------------------- /mk/pnetcdf.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_mpi_module.o wam_file_module.o wam_general_module.o wam_timopt_module.o \ 2 | wam_model_module.o wam_source_module.o wam_fre_dir_module.o wam_interface_module.o \ 3 | wam_grid_module.o wam_current_module.o wam_special_module.o wam_nest_module.o \ 4 | wam_ice_module.o wam_output_module.o wam_print_module.o wam_tables_module.o \ 5 | wam_output_set_up_module.o wam_mpi_comp_module.o wam_netcdf_module.o wam_coordinate_module.o \ 6 | read_current_input.o read_ice_input.o wam_topo_module.o read_topo_input.o jafu.o \ 7 | make_netcdf.o wam_flux_module.o wam_output_parameter_module.o wam_jonswap_module.o \ 8 | wam_radiation_module.o wam_swell_module.o wam_propagation_module.o 9 | 10 | pnetcdf: 11 | mpiifort $(OBJECTS) -o pnetcdf -I/project/opt/software/netcdf/4.7.0/intel/include/ \ 12 | -L/project/opt/software/netcdf/4.7.0/intel/lib/ -lnetcdf -lnetcdff 13 | -------------------------------------------------------------------------------- /mk/preproc.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_mpi_module.o wam_file_module.o wam_general_module.o wam_timopt_module.o wam_fre_dir_module.o \ 2 | wam_jonswap_module.o wam_tables_module.o wam_interface_module.o wam_grid_module.o wam_model_module.o \ 3 | preproc_module.o wam_special_module.o wam_output_parameter_module.o \ 4 | preproc_user_module.o wam_nest_module.o wam_output_set_up_module.o \ 5 | preproc.o read_topography.o read_preproc_user.o wam_mpi_comp_module.o wam_coordinate_module.o 6 | 7 | preproc: 8 | mpiifort $(OBJECTS) -o preproc 9 | -------------------------------------------------------------------------------- /mk/pspec.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_general_module.o wam_print_module.o wam_file_module.o \ 2 | wam_print_user_module.o print_spectra_file.o read_spectra_file.o \ 3 | read_spectra_user.o wam_coordinate_module.o wam_output_parameter_module.o 4 | 5 | pspec: 6 | mpiifort $(OBJECTS) -o pspec 7 | -------------------------------------------------------------------------------- /mk/ptime.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_general_module.o wam_print_module.o wam_file_module.o \ 2 | wam_print_user_module.o print_time.o read_time_user.o read_grid_file.o \ 3 | wam_coordinate_module.o wam_output_parameter_module.o 4 | 5 | ptime: 6 | mpiifort $(OBJECTS) -o ptime 7 | -------------------------------------------------------------------------------- /mk/ptime_S.mk: -------------------------------------------------------------------------------- 1 | OBJECTS = wam_general_module.o wam_print_module.o wam_file_module.o \ 2 | wam_print_user_module.o print_time_S.o read_time_user_S.o read_grid_file.o \ 3 | wam_coordinate_module.o wam_output_parameter_module.o 4 | 5 | ptime_S: 6 | mpiifort $(OBJECTS) -o ptime_S 7 | -------------------------------------------------------------------------------- /src/chief/jafu.f90: -------------------------------------------------------------------------------- 1 | ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! 2 | 3 | INTEGER FUNCTION JAFU (CL, J, IAN) 4 | 5 | ! ------------------------------------------------------------------------- ! 6 | ! ! 7 | ! JAFU - FUNCTION TO COMPUTE THE INDEX ARRAY FOR THE ANGLES OF THE ! 8 | ! INTERACTING WAVENUMBERS. ! 9 | ! ! 10 | ! S. HASSELMANN MPIFM 01/12/1985. ! 11 | ! ! 12 | ! PURPOSE. ! 13 | ! -------- ! 14 | ! ! 15 | ! INDICES DEFINING BINS IN FREQUENCY AND DIRECTION PLANE INTO ! 16 | ! WHICH NONLINEAR ENERGY TRANSFER INCREMENTS ARE STORED. NEEDED ! 17 | ! FOR COMPUTATION OF THE NONLINEAR ENERGY TRANSFER. ! 18 | ! ! 19 | ! METHOD. ! 20 | ! ------- ! 21 | ! ! 22 | ! SEE REFERENCE. ! 23 | ! ! 24 | ! REFERENCE. ! 25 | ! ---------- ! 26 | ! ! 27 | ! S. HASSELMANN AND K. HASSELMANN,JPO, 1985 B. ! 28 | ! ! 29 | ! ------------------------------------------------------------------------- ! 30 | 31 | REAL, INTENT(IN) :: CL !! WEIGHTS. 32 | INTEGER, INTENT(IN) :: J !! INDEX IN ANGULAR ARRAY. 33 | INTEGER, INTENT(IN) :: IAN !! NUMBER OF ANGLES IN ARRAY. 34 | 35 | JAFU = J + INT(CL) 36 | IF (JAFU.LE.0) JAFU = JAFU+IAN 37 | IF (JAFU.GT.IAN) JAFU = JAFU-IAN 38 | 39 | END FUNCTION JAFU 40 | -------------------------------------------------------------------------------- /src/chief/print_wam_status.f90: -------------------------------------------------------------------------------- 1 | SUBROUTINE PRINT_WAM_STATUS 2 | 3 | ! ---------------------------------------------------------------------------- ! 4 | ! ! 5 | ! PRINT_WAM_STATUS - PRINT STATUS OF ALL MODULES USED IN WAM. ! 6 | ! ! 7 | ! H. GUNTHER GKSS/ECMWF NOVEMBER 1989 ! 8 | ! ! 9 | ! PURPOSE. ! 10 | ! -------- ! 11 | ! ! 12 | ! TO PROVIDE AN OVERVIEW OF THE STATUS AND DATA STORED IN THE MODULES OF ! 13 | ! THE WAM MODEL. ! 14 | ! ! 15 | ! METHOD. ! 16 | ! ------- ! 17 | ! ! 18 | ! DONE BY CALL TO THE PRIND SUBROUTINES INCULDED IN THE DIFFERENT ! 19 | ! MODULES. ! 20 | ! ! 21 | ! REFERENCE. ! 22 | ! ---------- ! 23 | ! ! 24 | ! NONE. ! 25 | ! ! 26 | ! ---------------------------------------------------------------------------- ! 27 | ! ! 28 | ! EXTERNALS. ! 29 | ! ----------- ! 30 | 31 | USE WAM_BOUNDARY_MODULE, ONLY: PRINT_BOUNDARY_STATUS 32 | USE WAM_COLDSTART_MODULE, ONLY: PRINT_COLDSTART_STATUS 33 | USE WAM_CURRENT_MODULE, ONLY: PRINT_CURRENT_STATUS 34 | USE WAM_FILE_MODULE, ONLY: PRINT_FILE_STATUS 35 | USE WAM_FRE_DIR_MODULE, ONLY: PRINT_FRE_DIR_STATUS 36 | USE WAM_GENERAL_MODULE, ONLY: PRINT_GENERAL_MODULE 37 | USE WAM_GRID_MODULE, ONLY: PRINT_GRID_STATUS 38 | USE WAM_ICE_MODULE, ONLY: PRINT_ICE_STATUS 39 | USE WAM_NEST_MODULE, ONLY: PRINT_NEST_STATUS 40 | USE WAM_OUTPUT_SET_UP_MODULE, ONLY: PRINT_OUTPUT_STATUS 41 | USE WAM_PROPAGATION_MODULE, ONLY: PRINT_PROPAGATION_STATUS 42 | USE WAM_RESTART_MODULE, ONLY: PRINT_RESTART_STATUS 43 | USE WAM_SOURCE_MODULE, ONLY: PRINT_SOURCE_STATUS 44 | USE WAM_TABLES_MODULE, ONLY: PRINT_TABLES_STATUS 45 | USE WAM_TIMOPT_MODULE, ONLY: PRINT_TIMOPT_STATUS 46 | USE WAM_TOPO_MODULE, ONLY: PRINT_TOPO_STATUS 47 | USE WAM_WIND_MODULE, ONLY: PRINT_WIND_STATUS 48 | use wam_assi_set_up_module, only: print_assimilation_status 49 | 50 | ! ---------------------------------------------------------------------------- ! 51 | ! ! 52 | ! 1. PRINT STATUS. ! 53 | ! ------------- ! 54 | 55 | CALL PRINT_TIMOPT_STATUS 56 | CALL PRINT_GENERAL_MODULE 57 | CALL PRINT_COLDSTART_STATUS 58 | CALL PRINT_FRE_DIR_STATUS 59 | CALL PRINT_GRID_STATUS 60 | CALL PRINT_WIND_STATUS 61 | CALL PRINT_TOPO_STATUS 62 | CALL PRINT_CURRENT_STATUS 63 | CALL PRINT_ICE_STATUS 64 | CALL PRINT_NEST_STATUS 65 | CALL PRINT_BOUNDARY_STATUS 66 | CALL PRINT_OUTPUT_STATUS 67 | CALL PRINT_FILE_STATUS 68 | CALL PRINT_RESTART_STATUS 69 | CALL PRINT_PROPAGATION_STATUS 70 | CALL PRINT_SOURCE_STATUS 71 | CALL PRINT_TABLES_STATUS 72 | call print_assimilation_status 73 | 74 | END SUBROUTINE PRINT_WAM_STATUS 75 | -------------------------------------------------------------------------------- /src/chief/readsat.f90: -------------------------------------------------------------------------------- 1 | SUBROUTINE READSAT (IU80, CDATE, RLAT, RLON, SWH, WS, EOFD) 2 | 3 | ! ---------------------------------------------------------------------------- ! 4 | ! ! 5 | ! READSAT - READ MEASUREMENTS. ! 6 | ! ! 7 | ! H. GUNTHER GKSS/ECMWF AUGUST 1991 ! 8 | ! ! 9 | ! PURPOSE. ! 10 | ! -------- ! 11 | ! ! 12 | ! READ ONE DATA RECORD FOR ASSIMILATION. ! 13 | ! ! 14 | ! ! 15 | ! METHOD. ! 16 | ! ------- ! 17 | ! ! 18 | ! NONE. ! 19 | ! ! 20 | ! EXTERNALS. ! 21 | ! ---------- ! 22 | ! ! 23 | ! NONE. ! 24 | ! ! 25 | ! ---------------------------------------------------------------------------- ! 26 | ! 27 | ! INTERFACE. 28 | ! ---------- 29 | 30 | IMPLICIT NONE 31 | 32 | INTEGER, PARAMETER :: KIND_D = 8 33 | 34 | INTEGER, INTENT(IN) :: IU80 !! INPUT UNIT FOR MEASUREMENTS. 35 | CHARACTER(LEN=14), INTENT(OUT) :: CDATE !! DATE OF MEASUREMENT (YYYYMMDDHHMMSS). 36 | REAL (KIND=KIND_D), INTENT(OUT) :: RLAT !! LATITUDE OF MEASUREMENT (DEGREE). 37 | REAL (KIND=KIND_D), INTENT(OUT) :: RLON !! LONGITUDE OF MEASUREMENT (DEGREES). 38 | REAL, INTENT(OUT) :: SWH !! WAVE HEIGHT. 39 | REAL, INTENT(OUT) :: WS !! WIND SPEED. 40 | LOGICAL, INTENT(OUT) :: EOFD !! END OF DATA. (.TRUE. , .FALSE.) 41 | 42 | ! ---------------------------------------------------------------------------- ! 43 | ! 44 | ! LOCAL VARIABLES. 45 | ! ---------------- 46 | 47 | INTEGER :: IOS 48 | 49 | ! ---------------------------------------------------------------------------- ! 50 | ! ! 51 | ! 1. INITIALIZE. ! 52 | ! ----------- ! 53 | 54 | IOS = 0 55 | 56 | ! ---------------------------------------------------------------------------- ! 57 | ! ! 58 | ! 2. READ THE MEASUREMENT. ! 59 | ! --------------------- ! 60 | 61 | READ (IU80,'(A14,4F10.4)',IOSTAT=IOS) CDATE, RLAT, RLON, SWH, WS 62 | 63 | EOFD = (IOS.NE.0) 64 | 65 | END SUBROUTINE READSAT 66 | -------------------------------------------------------------------------------- /src/chief/wavemdl.f90: -------------------------------------------------------------------------------- 1 | SUBROUTINE WAVEMDL 2 | 3 | ! ---------------------------------------------------------------------------- ! 4 | ! ! 5 | ! WAVEMDL* - SUPERVISES EXECUTION OF MAIN MODULES OF THE WAVE MODEL ! 6 | ! ! 7 | ! LIANA ZAMBRESKY GKSS/ECMWF OCTOBER 1988 ! 8 | ! ! 9 | ! MODIFIED BY H. GUNTHER ECMWF MARCH 1990 ! 10 | ! H. GUNTHER GKSS JANUARY 2010 CYCLE_4.5.3 ! 11 | ! ! 12 | ! PURPOSE. ! 13 | ! -------- ! 14 | ! ! 15 | ! THIS SUBROUTINE SUPERVISES THE EXECUTION OF MAIN MODULES FOR ! 16 | ! WAM MODEL INITIALIZATION, WIND FIELD PRE-PROCESSING, ! 17 | ! DEPTH DATA PRE-PROCESSING, CURRENT DATA PRE-PROCESSING, AND ! 18 | ! WAM MODEL EXECUTION. ! 19 | ! ! 20 | ! INTERFACE. ! 21 | ! ---------- ! 22 | ! ! 23 | ! SEE MAIN MODULES SUB. INITMDL, PREPARE_WIND, PREPARE_TOPO, ! 24 | ! PREPARE_CURRENT, AND WAMODEL. ! 25 | ! ! 26 | ! METHOD. ! 27 | ! ------- ! 28 | ! ! 29 | ! THE FIRST TIME WAVEMDL IS CALLED, THE WAM MODEL IS INITIALIZED. ! 30 | ! THIS INITIALIZATION INCLUDES GETTING THE INITIAL SEA STATE FILES, ! 31 | ! FILLING MODULES, DEFINING THE GRID AND SETTING GENERAL PARAMETERS. ! 32 | ! ! 33 | ! IN THE FIRST AND ALL SUBSEQUENT CALLS TO WAVEMDL PREPARE_WIND FORMATS ! 34 | ! THE WINDS INTO THE WAM MODEL STRUCTURE AND THE WAM MODEL IS EXECUTED. ! 35 | ! EACH CALL TO WAMODEL INTEGRATES THE WAVE SPECTRA FORWARD IN TIME BY ! 36 | ! ONE INPUT WIND TIME STEP OR PROPAGATION OR SOURCE FUNCTION TIME STEP, ! 37 | ! WHAT EVER IS LONGER. ! 38 | ! ! 39 | ! REFERENCES. ! 40 | ! ----------- ! 41 | ! ! 42 | ! NONE ! 43 | ! ! 44 | ! ---------------------------------------------------------------------------- ! 45 | ! ! 46 | ! EXTERNALS. ! 47 | ! ----------- ! 48 | 49 | USE WAM_GENERAL_MODULE, ONLY: & 50 | & INITMDL, & !! INITIALIZES THE WAM MODEL. 51 | & WAMODEL !! INTEGRATES THE WAVE SPECTRA. 52 | 53 | USE WAM_WIND_MODULE, ONLY: & 54 | & PREPARE_WIND !! PREPARES WIND DATA FOR WAVE MODEL. 55 | 56 | USE WAM_TOPO_MODULE, ONLY: & 57 | & PREPARE_TOPO !! PREPARES TOPO DATA FOR WAVE MODEL. 58 | 59 | USE WAM_CURRENT_MODULE, ONLY: & 60 | & PREPARE_CURRENT !! PREPARES CURRENT DATA FOR WAVE MODEL. 61 | 62 | ! ---------------------------------------------------------------------------- ! 63 | ! ! 64 | ! MODULE VARIABLES. ! 65 | ! ----------------- ! 66 | 67 | USE WAM_FILE_MODULE, ONLY: IU06, ITEST 68 | USE WAM_TIMOPT_MODULE, ONLY: TOPO_RUN, CURRENT_RUN 69 | 70 | ! ---------------------------------------------------------------------------- ! 71 | ! ! 72 | ! LOCAL VARIABLES. ! 73 | ! ---------------- ! 74 | 75 | IMPLICIT NONE 76 | 77 | LOGICAL, SAVE :: FRSTIME = .TRUE. !! FIRST CALL OF WAVEMDL FLAG. 78 | 79 | ! ---------------------------------------------------------------------------- ! 80 | ! ! 81 | ! 1. THE FIRST CALL TO WAVEMDL PERFORMS INITIALIZATION. ! 82 | ! -------------------------------------------------- ! 83 | 84 | IF (FRSTIME) THEN 85 | CALL INITMDL 86 | FRSTIME = .FALSE. 87 | IF (ITEST.GE.1) WRITE(IU06,*) ' SUB. WAVEMDL: INITMDL DONE' 88 | END IF 89 | 90 | ! ---------------------------------------------------------------------------- ! 91 | ! ! 92 | ! 2.0 INTEGRATE THE WAVE SPECTRA FORWARD IN TIME. ! 93 | ! ------------------------------------------- ! 94 | 95 | ! 2.1 REFORMAT WINDS TO MODEL GRID. ! 96 | ! ----------------------------- ! 97 | 98 | CALL PREPARE_WIND 99 | IF (ITEST.GE.1) WRITE(IU06,*) ' SUB. WAVEMDL: PREPARE_WIND DONE' 100 | 101 | ! 2.2 REFORMAT TOPO DATA TO MODEL GRID. ! 102 | ! --------------------------------- ! 103 | 104 | IF (TOPO_RUN) THEN 105 | CALL PREPARE_TOPO 106 | IF (ITEST.GE.1) WRITE(IU06,*) ' SUB. WAVEMDL: PREPARE_TOPO DONE' 107 | END IF 108 | 109 | ! 2.3 REFORMAT CURRENTS DATA TO MODEL GRID. ! 110 | ! ------------------------------------- ! 111 | 112 | IF (CURRENT_RUN) THEN 113 | CALL PREPARE_CURRENT 114 | IF (ITEST.GE.1) WRITE(IU06,*) ' SUB. WAVEMDL: PREPARE_CURRENT DONE' 115 | END IF 116 | 117 | ! 2.4 INTEGRATE THE WAVE SPECTRA FORWARD IN TIME. ! 118 | ! ------------------------------------------- ! 119 | 120 | CALL WAMODEL 121 | IF (ITEST.GE.1) WRITE(IU06,*) ' SUB. WAVEMDL: WAMODEL DONE' 122 | 123 | END SUBROUTINE WAVEMDL 124 | -------------------------------------------------------------------------------- /src/mod/wam_flux_module.f90: -------------------------------------------------------------------------------- 1 | MODULE WAM_FLUX_MODULE 2 | 3 | ! ---------------------------------------------------------------------------- ! 4 | ! ! 5 | ! THIS MODULE CONTAINS: 6 | ! ENERGY AND MOMENTUM FLUXES IN THE WAM-MODEL. 7 | ! 8 | ! ---------------------------------------------------------------------------- ! 9 | 10 | ! ---------------------------------------------------------------------------- ! 11 | ! ! 12 | ! 1. ENERGY AND MOMENTUM FLUXES IN THE WAM-MODEL. ! 13 | ! -------------------------------------------- ! 14 | 15 | REAL, ALLOCATABLE :: PHIOC(:) !! ENERGY FLUX TO OCEAN. 16 | REAL, ALLOCATABLE :: PHIAW(:) !! ENERGY FLUX FROM WIND TO WAVES. 17 | REAL, ALLOCATABLE :: TAUOC_X(:) !! MOMENTUM FLUX INTO OCEAN. 18 | REAL, ALLOCATABLE :: TAUOC_Y(:) !! MOMENTUM FLUX INTO OCEAN. 19 | REAL, ALLOCATABLE :: PHIBOT(:) !! BOTTOM ENERGY FLUX TO OCEAN. 20 | REAL, ALLOCATABLE :: TAUBOT_X(:) !! BOTTOM MOMENTUM FLUX INTO OCEAN. 21 | REAL, ALLOCATABLE :: TAUBOT_Y(:) !! BOTTOM MOMENTUM FLUX INTO OCEAN. 22 | 23 | ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! 24 | 25 | END MODULE WAM_FLUX_MODULE 26 | -------------------------------------------------------------------------------- /src/mod/wam_general_module.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/src/mod/wam_general_module.f90 -------------------------------------------------------------------------------- /src/mod/wam_model_module.f90: -------------------------------------------------------------------------------- 1 | MODULE WAM_MODEL_MODULE 2 | 3 | ! ---------------------------------------------------------------------------- ! 4 | ! ! 5 | ! THIS MODULE CONTAINS: ! 6 | ! THE ACTUAL MODEL WAVE SPECTRA, WIND, DEPTH AND CURRENT INFORMATION. ! 7 | ! ! 8 | ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! 9 | 10 | ! ---------------------------------------------------------------------------- ! 11 | ! ! 12 | ! 1. MODEL SPECTRA. ! 13 | ! -------------- ! 14 | 15 | REAL, ALLOCATABLE :: FL3 (:,:,:) !! SPECTRA. 16 | 17 | ! ---------------------------------------------------------------------------- ! 18 | ! ! 19 | ! 2. WIND FIELDS USED IN THE WAM-MODEL. ! 20 | ! ---------------------------------- ! 21 | 22 | REAL, ALLOCATABLE :: U10 (:) !! WIND SPEED [M/S]. 23 | REAL, ALLOCATABLE :: UDIR (:) !! WIND DIRECTION IN [RAD]. 24 | !! OCEANOGRAPHIC NOTATION (POINTING ANGLE OF 25 | !! WIND VECTOR, CLOCKWISE FROM NORTH). 26 | REAL, ALLOCATABLE :: ROAIRN(:) !! SURFACE AIR DENSITY [KG/M**3]. 27 | REAL, ALLOCATABLE :: WSTAR (:) !! CONVECTIVE VELOCITY SCALING [M/S]. 28 | REAL, ALLOCATABLE :: USTAR (:) !! FRICTION VELOCITY [M/S]. 29 | REAL, ALLOCATABLE :: Z0 (:) !! ROUGHNESS LENGTH [M]. 30 | REAL, ALLOCATABLE :: TAUW (:) !! WAVE STRESS IN (M/S)**2 31 | 32 | ! ---------------------------------------------------------------------------- ! 33 | ! ! 34 | ! 3. DEPTH FIELDS USED IN THE WAM-MODEL. ! 35 | ! ----------------------------------- ! 36 | 37 | REAL, ALLOCATABLE :: DEPTH (:) !! WATER DEPTH IN (M) 38 | INTEGER, ALLOCATABLE :: INDEP(:) !! DEPTH INDEX. 39 | 40 | ! ---------------------------------------------------------------------------- ! 41 | ! ! 42 | ! 4. CURREDNT FIELDS USED IN THE WAM-MODEL. ! 43 | ! -------------------------------------- ! 44 | 45 | REAL, ALLOCATABLE :: U (:) !! WEST-EAST COMP. OF CURRENTS IN (M/S) 46 | REAL, ALLOCATABLE :: V (:) !! SOUTH-NORTH COMP. OF CURRENTS IN (M/S) 47 | 48 | ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! 49 | 50 | END MODULE WAM_MODEL_MODULE 51 | -------------------------------------------------------------------------------- /src/mod/wam_tables_module.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mywave/WAM/f54a3420d98c50530c1121538a6a7de18da32c54/src/mod/wam_tables_module.f90 --------------------------------------------------------------------------------