- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/FLO/florst.F90
r10425 r13463 8 8 !! NEMO 1.0 ! 2002-10 (A. Bozec) F90 : Free form and module 9 9 !! 3.2 ! 2010-08 (slaw, cbricaud): netcdf outputs and others 10 !!----------------------------------------------------------------------11 #if defined key_floats12 !!----------------------------------------------------------------------13 !! 'key_floats' float trajectories14 10 !!---------------------------------------------------------------------- 15 11 USE flo_oce ! ocean drifting floats … … 102 98 IF( lk_mpp ) THEN 103 99 DO jfl = 1, jpnfl 104 IF( (INT(tpifl(jfl)) >= mig( nldi)) .AND. &105 &(INT(tpifl(jfl)) <= mig( nlei)) .AND. &106 &(INT(tpjfl(jfl)) >= mjg( nldj)) .AND. &107 &(INT(tpjfl(jfl)) <= mjg( nlej)) ) THEN100 IF( (INT(tpifl(jfl)) >= mig(Nis0)) .AND. & 101 &(INT(tpifl(jfl)) <= mig(Nie0)) .AND. & 102 &(INT(tpjfl(jfl)) >= mjg(Njs0)) .AND. & 103 &(INT(tpjfl(jfl)) <= mjg(Nje0)) ) THEN 108 104 iperproc(narea) = iperproc(narea)+1 109 105 ENDIF … … 125 121 END SUBROUTINE flo_rst 126 122 127 # else128 !!----------------------------------------------------------------------129 !! Default option Empty module130 !!----------------------------------------------------------------------131 CONTAINS132 SUBROUTINE flo_rst ! Empty routine133 END SUBROUTINE flo_rst134 #endif135 136 123 !!======================================================================= 137 124 END MODULE florst
Note: See TracChangeset
for help on using the changeset viewer.