Changeset 1806 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcrnf.F90

Timestamp:

2010-02-24T17:40:02+01:00 (14 years ago)

Author:

cbricaud

Message:

developement that is running with running with nemoref on 19022010

File:

• branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (3 diffs)

branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -75 +75 @@
                CALL ctl_stop( 'sbc_rnf: unable to allocate sf_rnf structure' )   ;   RETURN
             ENDIF
-            ALLOCATE( sf_rnf(1)%fnow(jpi,jpj) )
-            ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,2) )
+            ALLOCATE( sf_rnf(1)%fnow(jpi,jpj,1) )
+            ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) )
          ENDIF
          CALL sbc_rnf_init(sf_rnf)
@@ -93 +93 @@
             DO jj = 1, jpj
                DO ji = 1, jpi
-                  IF( gphit(ji,jj) > 40 .AND. gphit(ji,jj) < 65 )   sf_rnf(1)%fnow(ji,jj) = 0.85 * sf_rnf(1)%fnow(ji,jj)
+                  IF( gphit(ji,jj) > 40 .AND. gphit(ji,jj) < 65 )   sf_rnf(1)%fnow(ji,jj,1) = 0.85 * sf_rnf(1)%fnow(ji,jj,1)
                END DO
             END DO
@@ -101 +101 @@
 
          IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN
-            emp (:,:) = emp (:,:) - rn_rfact * ABS( sf_rnf(1)%fnow(:,:) )
-            emps(:,:) = emps(:,:) - rn_rfact * ABS( sf_rnf(1)%fnow(:,:) )
+            emp (:,:) = emp (:,:) - rn_rfact * ABS( sf_rnf(1)%fnow(:,:,1) )
+            emps(:,:) = emps(:,:) - rn_rfact * ABS( sf_rnf(1)%fnow(:,:,1) )
             CALL iom_put( "runoffs", sf_rnf(1)%fnow )         ! runoffs
          ENDIF