Changeset 10702 for NEMO/trunk/src/OCE/ICB/icbini.F90
- Timestamp:
- 2019-02-20T10:44:07+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icbini.F90
r10691 r10702 74 74 ! ! allocate gridded fields 75 75 IF( icb_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'icb_alloc : unable to allocate arrays' ) 76 76 ! 77 ! ! initialised variable with extra haloes to zero 78 uo_e(:,:) = 0._wp ; vo_e(:,:) = 0._wp ; 79 ua_e(:,:) = 0._wp ; va_e(:,:) = 0._wp ; 80 ff_e(:,:) = 0._wp ; tt_e(:,:) = 0._wp ; 81 fr_e(:,:) = 0._wp ; 82 #if defined key_si3 83 hi_e(:,:) = 0._wp ; 84 ui_e(:,:) = 0._wp ; vi_e(:,:) = 0._wp ; 85 #endif 86 ssh_e(:,:) = 0._wp ; 87 ! 77 88 ! ! open ascii output file or files for iceberg status information 78 89 ! ! note that we choose to do this on all processors since we cannot
Note: See TracChangeset
for help on using the changeset viewer.