Changeset 9019 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_hgr.F90
- Timestamp:
- 2017-12-13T15:58:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_hgr.F90
r8018 r9019 68 68 IF( nn_timing == 1 ) CALL timing_start('usr_def_hgr') 69 69 ! 70 IF(lwp) WRITE(numout,*) 71 IF(lwp) WRITE(numout,*) 'usr_def_hgr : ISOMIP configuration' 72 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 70 IF(lwp) THEN 71 WRITE(numout,*) 72 WRITE(numout,*) 'usr_def_hgr : ISOMIP configuration' 73 WRITE(numout,*) '~~~~~~~~~~~' 74 WRITE(numout,*) 75 WRITE(numout,*) ' ===>> geographical mesh on the sphere with regular grid-spacing' 76 WRITE(numout,*) ' given by rn_e1deg and rn_e2deg' 77 ENDIF 73 78 ! 74 ! !== grid point position ==! (in kilometers) 75 76 IF(lwp) WRITE(numout,*) 77 IF(lwp) WRITE(numout,*) ' geographical mesh on the sphere with regular grid-spacing' 78 IF(lwp) WRITE(numout,*) ' given by rn_e1deg and rn_e2deg' 79 79 ! !== grid point position ==! (in degrees) 80 80 DO jj = 1, jpj 81 81 DO ji = 1, jpi … … 94 94 pphiv(ji,jj) = rn_phi0 + rn_e2deg * zvj 95 95 pphif(ji,jj) = rn_phi0 + rn_e2deg * zfj 96 96 97 ! !== Horizontal scale factors ==! (in meters) 97 98 ! e1
Note: See TracChangeset
for help on using the changeset viewer.