Changeset 7646 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r6140 r7646 347 347 ! Tricky trick : add 2 to frld in the Southern Hemisphere 348 348 !-------------------------------------------------------- 349 IF( f cor(1,1) < 0.e0) THEN349 IF( ff_t(1,1) < 0._wp ) THEN 350 350 DO jj = 1, njeqm1 351 351 DO ji = 1, jpi … … 479 479 480 480 !! Fram Strait sea-ice transport (sea-ice + snow) (in ORCA2 = 5 points) 481 IF( iom_use('fram_trans') .and. c p_cfg == "orca" .AND. jp_cfg == 2 ) THEN ! ORCA R2 configuration481 IF( iom_use('fram_trans') .and. cn_cfg == "orca" .AND. nn_cfg == 2 ) THEN ! ORCA R2 configuration 482 482 DO jj = mj0(137), mj1(137) ! B grid 483 483 IF( mj0(jj-1) >= nldj ) THEN
Note: See TracChangeset
for help on using the changeset viewer.