Changeset 11930 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC
- Timestamp:
- 2019-11-19T17:41:22+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC/step_c1d.F90
r11637 r11930 67 67 ! Control 68 68 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 69 !LOLO: 70 ! LOLO: should write a stp_ctl, who checks on flux realism (current SAS version checks ice fields...) 71 ! CALL stp_ctl( kstp, indic ) 72 !IF( indic < 0 ) THEN 73 ! CALL ctl_stop( 'step: indic < 0' ) 74 ! CALL dia_wri_state( 'output.abort' ) 75 !ENDIF 76 !LOLO. 69 CALL stp_ctl( kstp, indic ) 70 IF( indic < 0 ) THEN 71 CALL ctl_stop( 'step: indic < 0' ) 72 CALL dia_wri_state( 'output.abort' ) 73 ENDIF 77 74 78 75 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file 79 76 80 ! LOLO: from C1D:77 !#LB: from C1D: 81 78 IF( lrst_oce ) CALL rst_write( kstp ) ! write output ocean restart file 82 79 ! … … 85 82 #endif 86 83 87 ! LOLO: from SAS"84 !#LB: from SAS" 88 85 !#if defined key_iomput 89 86 ! IF( kstp == nitrst ) THEN -
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC/usrdef_hgr.F90
r11637 r11930 67 67 REAL(wp), DIMENSION(:,:), INTENT(out) :: pe1e2u, pe1e2v ! u- & v-surfaces (if reduction in strait) [m2] 68 68 ! 69 INTEGER :: ji, jj ! dummy loop indices 70 REAL(wp) :: zlam1, zlam0, zcos_alpha, zim1 , zjm1 , ze1 , ze1deg, zf0 ! local scalars 71 REAL(wp) :: zphi1, zphi0, zsin_alpha, zim05, zjm05, zbeta, znorme, zfact ! - - 69 REAL(wp) :: zf0 ! local scalar 72 70 !!------------------------------------------------------------------------------- 73 71 ! 74 72 IF(lwp) WRITE(numout,*) 75 IF(lwp) WRITE(numout,*) 'usr_def_hgr : C1Dconfiguration'73 IF(lwp) WRITE(numout,*) 'usr_def_hgr : STATION_ASF configuration' 76 74 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ uniform grid spacing WITH Coriolis force' 77 IF(lwp) WRITE(numout,*) ' LOLO => rn_lon1d, rn_lat1d =', rn_lon1d, rn_lat1d75 IF(lwp) WRITE(numout,*) ' coordinates of station =>', rn_lon1d, rn_lat1d 78 76 ! 79 77 ! !== grid point position ==! (Special case of 1D config: all lon/lat are the same) … … 88 86 pphiv(:,:) = rn_lat1d 89 87 pphif(:,:) = rn_lat1d 88 90 89 ! !== Horizontal scale factors ==! (in meters) 91 !92 90 ! ! constant grid spacing 93 91 pe1t(:,:) = 100. ; pe2t(:,:) = 100. … … 103 101 ! 104 102 ! !== Coriolis parameter ==! 105 kff = 0 ! indicate to compute Coriolis parameter afterward 103 zf0 = 2._wp * omega * SIN( rad * rn_lat1d ) 104 pff_f(:,:) = zf0 105 pff_t(:,:) = zf0 106 kff = 1 ! indicate to skip computing Coriolis parameter afterward 106 107 ! 107 108 END SUBROUTINE usr_def_hgr -
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC/usrdef_nam.F90
r11831 r11930 8 8 !!====================================================================== 9 9 !! History : 4.0 ! 2016-03 (S. Flavoni, G. Madec) Original code 10 !! History : trunk ! 2019-10(L. Brodeau) for STATION_ASF (C1D meets SAS)10 !! History : 4.x ! 2019-10 (L. Brodeau) for STATION_ASF (C1D meets SAS) 11 11 !!---------------------------------------------------------------------- 12 12
Note: See TracChangeset
for help on using the changeset viewer.